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000000 



TITLE TSINIT — TSX startup initialization 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 
. CSECT 



TSINIT: 



There are two external assembly-time switches related to assembling 
TSINIT for execution on a PRO or a PDP-11. 

The following values for the PROASM flag are defined: 

==> Assemble for PDP-11 <not Pro) only. 

1 ===> Assemble for Pro only. 

2 =^=> Assemble for either PDP-11 or Pro execution. 

The following values for the PROCID flag are defined: 

==> Do not lock system to ID number. 

1 =-> Lock system to ID number. 



PROASM = 



PROCID 
PROCID 



TSXPRO 



IF NDF, PROASM 

. ENDC i NDF, PROASM 

IF NDF. PROCI!) 
. IF EQ-<PR0ASM-1> 

1 
. IFF 


. ENDC ; EQ, <PRDASM"i: 
.ENDC } NDF, PROCID 

. IF EQ, PROASM 
. GLOBL TSXPRO 


. ENDC 



; If PROASM not defined 

; Default value for PROASM if not defined 



If PROCID not defined 

If assembling for PRO only 

Then check ID by default 

If not assembling for PRO only 

Then don't check ID number 



Define dummy base for TSXPRO if not PRO 



TSINIT is the initialization module of TSX that is executed once 
during system startup. Time-sharing character buffers and other 
run-time data areas are allocated over TSINIT. 

Copyright 1900, 1981. 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989. 
S?<H Computer Systems, Inc. 
Nashville, TN USA 



Macro calls 

MCALL LOOKUP, . ENTER, . READW, . SAVESTATUS, . OVAL 
MCALL TRPSET, . SETTOP, . CLOSE, . TTYOUT, . PRINT, . PURGE 
MCALL DEI ETE, . WRITW, . SERR, . HERR, . EXIT, . UNLOCK 

. MCALL , FETCH, . RELEASE, . LOCK, . GTIM, . DATE, . DSTATUS 

. MCALL . SCCA, . CSTAT 

Global definitions 

. GLOBL TSINIT, INITGO, INITOP, PPTERM, PROITP, PROASM, PISRT 
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000000 



. GLOBL DSKBUFi PROBUF.> FNDHRB. HANXIiR 

Following global only needed for the Pro distribution 
creation program - MAKPRD and installation program - INSTSX 

IF NE. PROASM 

** Assemble this code if lue are generating for a Pro 

. OLOBL PROSIZ, PROINI, PROLIN, PROHAN, PRONOP 
.GLOBL PIHAN, PIDPTR, PIDRIV 
•IFF i NE. PROASM 

** Assemble this code if we are not generating for a Pro 

. GLOBL TSXPRO 
TSXPRO == 

*■««■ End of conditional Pro code 

. ENDC ; NE, PROASM 

Global references 

. GLOBL HANDSK. MAXDEV, NDVRCB> HANRCB, HANRCO 

. GLOBL LXCL, VSYDMP, STKLVL, INTSSZ, INDFIL, NXIVMH, EXCBUF 

. GLOBL VNUIP, NSIP> INSTBL, INSTBN, II**SZ, DCCSI2. VNUMDC, NUMCDB 

. GLOBL NSCP, SCPFHD, SP**SZ, CSHDEV, CSHDVN, VMXCSH, CD**SZ 

. GLOBL LSTPL, LMXNUM, MXCSR, MXVEC, RSR, INVEC, VHIMEM, CXTPAG 

. GLOBL LSWPBK, LSTSL, SWDBLK, SWPCHN, NUMDEV, CS*NMX, SCHED 

. GLOBL H. DSTS, DVSTAT, HANENT> H. GEN, FORK, INTEN, PNAME 

. GLOBL *SXON, LSWIO, LHIRBB, LHIRBE, LHIRBP, LHIRBG, LHIRBA 

. GLOBL LHIRBS, LHIRBC, VNCSLO, VNCXOF, VNCXON, SDDVU, VMSCHR, MAXSLO 

. GLOBL MPARO, MPAR16, PARENL, MPARFL, TSEMT, VDBFLG, DX«EBA 

. GLOBL H. SIZ, HANSIZ, H. DVSZ, DEVSIZ, LOMAP, MMENBL, UPAR7 

. GLOBL PSW, HIMAP, FSTDL, LSTDL, LINBUF, LINSIZ, NUMCCB, TKISEC 

. GLOBL FRKINI, FRKGEN.. NUMFRK, FQ**SZ, H. CSR, H. INS, VSWPSL, DMYDEV 

. GLOBL LINEND, LOTBUF, LOTSIZ, LOTEND, KMNTOP, KMNHI, NSL, NDL 

. GLOBL DX*MPH, DX*NHM, DX*IBH, HANPAR, HANXIT, MAPPAR, LINSPC 

. GLOBL KMNPGS, KMNSTK, KMNSTR, KMNCHN, SROMMR, KPARO, PROFLG 

. GLOBL EMMAP, lOMAP, SR3MMR, lOPAGE, MAPSIZ, SR3FLG, NSPLDV 

. GLOBL UDDRO, IDSFLG 

. GLOBL UPARO, KPDRO, UPDRO, KPAR7, BASMAP, PTWRD, PTBYT, LOKMEM 

. GLOBL GTBYT, MPPHY, RELOC, BRKPT, TSGEN, TSEXEC, VSWPFL 

. GLOBL CW*GDH, CW$BTH, CW*LGS, CW«FB, CW*FGJ, MSGBAS, RPRVEC 

. GLOBL CW*USR, CW*XM, CONFIG. CW*50H, JMPO, DTLX, USRBAS, WINBAS 

. GLOBL DATIML, DATIMH, RMON, C0NFG2, SG*ELG, SG*IOT, CSHBAS 

. GLOBL SG*PAR, SG*MTS, SG*MMU, SG*MTM, LTTPAR, LOKBAS, CSHVEC, LOKVEC 

. GLOBL SYSGEN, AUTHAN, AMEND, CLKRTI, TRP4, CW«PRO, TIOVEC 

. GLOBL TRPIO, TRP20, TRP24, EMTENT, TRP34, INIJMP, MHNSIZ 

. GLOBL TKIVAL, INRECV, OTRECV, INMXV, OTMXV, DHBFSZ, MXTYPE 

. GLOBL ZCLR, MXRBUF, MXDTR, INTMXl, *PHONE, LCDTYP, TIOBAS 

. GLOBL LDHBIB, LDHBIP, LDHB2B, CLVERS, CXTSIZ, CXTWDS, CXTPDR 

. GLOBL CLORSZ, TSXSIT, JM*«SZ, VMXMON, MONFQH, CXTRMN, CXTBAS 

. GLOBL ILSW2, *NOIN, LSW3, MXLPR, CW*ESP, CLTOTL, RMNPDR, MA*SYS 

. GLOBL SFCB, SFCBND, SFCBFH, SFCBSZ, NSPLFL, NSPLBL, INTSTK, INTSND 
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GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 



NFRESB, PVSPBL. VMXWIN, DW**SZ, LDVERS, CW*QBS 

FCfLBN, VMLBLK, VMXSF, VMXSFC, FF**SZ. FW**SZ, SWPJOB, SWPPOS 

TSR, RBR> RDINT> LSTMX, SS, CHAIN, JSWLOC, MU*TXT, SLTSIZ 

NUMIOQ, FREIDQ, UMOBE, FPTRAP> MXLNT, DIfLD, DI*CL, CLSTS 

FREPOS, I0Q3IZ, SYUNIT, UMSYTP, DI*TT, CXTBUF, SSEND 

SYINDX, MONVEC, KMNBAS, SDANAM, VBUSTP, MINCTR 

NUMRDB. RDB, RDBEND, RT*SKP, RT*TOP. NLINES, SHRRCB. SHRRCN 

RT*BAS, UPMODE, SPLNB> CBHALC. NIOL, CHNSIZ, RC**SZ, VNGR 

UPAR6, UPDRA, RT**SZ, VINABT, *DEAD, LSW6 

SYTIMH. SYSDAT> TRP250, ODTTRP> TRP14, SYTIML 

DS*ABT- CL*ORB, CL*ORE, CL*ORG. CL*ORP, CL*ORA 

*TAB, *FORM, CO*TAB, CO*FF» CO*DEF, CL*EPS, CLEOFS 

CL*OPT, CL*STA, CL*ORS, LSTLIN, VCSHNB, CL*EPr, CL*EPN 

CCLSAV, SPLND. SDCB, SPLDEV, SPLANM, MIODBG 

SDNAME, SDCHAN> SDCBSZ, SPLDVN, DTYPE 

DS*NRD, DX«NMT, *8BIT, C0*8BT, UEXRTN, VUXIFL 

SPLBLK, SPLCHN, MVSIZ, MEMPAR, UEXINT, DX«NRD 

NMSNMB, SNMSHD> SB**SZ, VPMSIZ, PMPAR. PMCELS 

NUMDCD, riEM256, LOKCSH, DC«*SZ 

JCXPOS, MXJMEM, VDFMEM, DFJMEM, TK5VAL. TK3SVL 

VPAP6, lOTIMR. ERRLOG, VNFCSH, FC**SZ 

ADR, 0. BLK, 0. PAR, 0. SIZ, VPAR5. KPAR5, DZOINT, DHOINT 

OVRADD, *OVRH, SYSMAP. MAPSYS, VSLEDT, LCLUNT 

UBUSMF, UMRABR. IOMAP> QBUS. UNIBUS, DX*NST 

DVFLAG, DX*DMA, RT«NAM, DS*DIR, LDDEVX, DS«VSZ 

INDSAV, INDDBL, INDTSV, INDDBS, DS*SFN 

SYNAME. UCLNAM, RSFBLK, VPLAS, SEGCHN 

MXJADR, *MEMSZ, PHYMEM, S0*TSX, CDX*DH 

CLHEAD. CLSIZE, CLDEVX, C. CSW, C. SBLK, C. DEVQ, CIDEVX 

VU*CL, VUCLMC, UK**SZ, US**SZ, UC**SZ, UCLBLK, UCLDAT 

VLDSYS. VMXMSG, VMAXMC, MB**SZ, MR**SZ, CS*OPN, CS*ENT 
MI*SBP, MI*LNK, MIOBHD, VMIOSZ 
MW**SZ, MIONWB, MIOWHD, MW*LNK 
CA*BLK, CA*DVU, CA*WCT, VMXHRB 
, CA*HFL, CA*HBL, CA*HSH, NUMRDB 
, CCBHD, CC**SZ, CDX*DZ, MF*LIN 
, MH*SCR, LMXLN, HF*LIN, HF*RIE. HF*TIE 
, riF*LE, DM*LSR, HF*MC, MF*CS, MF«CM 

CDX*VH, VH*CSR, VH*LPR, MH*PBR, VF*TIE, VF*RIE, VF*MR 

VF«LIN, VF*SC, VF*RE, VH*LCR, VHOINT, TTINCP 

*HARD, LOUTIR, LINIR, NEDCHR, CLOTIR, CLINCP, FSTIOL, LSTHL 

SYSVER, SYSUPD, DI*DU, DI*XL, DI*MU, CL*LIX 

CL*LEN, DI*PI, GENTOP 

LSW5, DX*NCA, KPAR6, CLKVEC 



I 
( 
I 






DX*MAP,MIOFLG, 
VMIOBF, liI**SZ, 
CSHSIZ,CSHBFP, 
CA*UFL, CA*UBLi 
SRTSIZ, SMRSIZ. 
CDXtDL, HF*TSB, 
MH*LPR. DM*CSR. 



Macros to enable and disable interrupts 



. MACRO 


DISABL 


BIS 


#340, @#PSW 


. ENDM 


DISABL 


. MACRO 


ENABL 


BIC 


#340, @#PSW 


. ENDM 


ENABL 



iDisable interrupts 



Offsets in block of ODT REL file. 



I 
c 
f 

i 

i 
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185 
186 
107 
188 
189 
190 
191 
192 

193 

194 

195 

196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 



f 



172 






173 




000040 


174 




000042 


175 




000052 


176 




000056 


177 




000060 


178 




000062 


179 




001000 


ISO 






181 






182 






183 


000000 




134 


000020 


000000 



000026 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000062 
000070 
000072 
000100 
000102 
000110 
000112 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 



000000 
000000 
000000 
000000 
000000 
000000 
000000 

075250 

073376 

075250 

073376 

075250 

073376 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

030074 ' 

004000 

000322 ' 



052077 
110466 
046543 
103112 
012700 
077167 
100040 
075250 
045640 



000000 000000 



100020 



lOOOOC 



011504 



000000 



000000 
051646 
000000 
000000 



3TA 
STK 
RSZ 
OSZ 
RID 
RBD 
ODTBAS 

i 

i Dati: 



AREA: 

iMroi>i_K. . vyunu 



areas 



. BLKW 



40 
42 
52 
56 
60 
62 
1000 



8. 



PROGRAM START ADDRESS 

INITIAL STACK POINTER 

ROOT SIZE 

OVERLAY SIZE 

REL FILE ID 

DISPLACEMENT TO 1ST REL BLOCK 

BASE ADDRESS ODT WAS LINKED FOR 



ODTFLG 
ODTTOP 
CCAFLG 
CLKIOO 
RTTRP4 
RTMNVC 
SAVBLK 
TSXSAV 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. BLKW 
. RAD50 



0, 0,0, 0,0, 

O 




O 
5 
/SY TSX SAV/ 



, c:.A 1 C.\^iJf^u I i-i Q, yvL,r^JL/w, r iJrC . wO 1 n 1 



KMNNAM; . RAD50 /SY TSKMONSAV/ 
CCLNAM: . RAD50 /SY CCL SAV/ 
DSTBLK: . WORD 0, 0, 0, 



XMVBAS: 

NMXHAN: 

HMAP : 

FETDEV 

TOPMEM 

FMEMHI 

FMEMLO 

OVLBAS 

FILBLK 

CURDEV 

CURNAM 

PROBUF 

WRKBUF 

WRKSIZ 

RTVPTR 

; The fo 

i defini 

•> one of 

■> relati 

R50MSG = 

R50WIN = 

R50L0K = 

R50USR = 

R50CSH ==: 

R50TIO = 

R50TT 

R50SY 

R50LD 



WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

i loujing 

tions t 
these 

ve (cmp 
•'■•RMSG 
■'••RWIN 
••■^RLOK 
•■^RUSR 
"RCSH 
■'^RTIO 
■■^RTT 
•'^RSY 
•'■■RLD 



O 



O 







O 











INITOP 

2048. 

RTVEND 

RAD50 
o conse 
cells a 

RSOxxx 



64-byte block # belou high alloc memori} 
64-byte block # above top of low alloc memory 
Start loading overlays over TSINIT from here 



; Initially no limit on system version number 
definitions were converted from uord cells to 
rve space at V6. 40. All subsequent references to 
re converted from: 
rl ) to immediate (cmp #R50xxx,rl). 



I 

f 

I 

I 

i 

c 



i "SY 
J "LD 



t 
i 



f 

i 
i 
< 

i 



( 
i 
I 
t 
C 

i 
t 

I 

( 
I 
1 
( 

i 

i 
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225 
226 
227 
228 
227 
230 
231 
232 
233 
234 



235 

236 

237 

238 

239 
240 
241 
342 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 

256 
257 
258 
259 
260 
261 
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000160 
000166 
000174 
000176 
000200 
000206 
000210 
000216 
000220 
000226 
000230 
000232 
000234 
000236 
000240 



062550 
012240 
012276 
012305 
013630 
013666 
013675 
105610 
046770 
057164 
100040 
012240 
000000 
000 
075250 
100020 
075250 
070524 
075250 
073376 
000000 
000000 
000000 
OOOOOO 
000000 



015270 
013630 

110 
114730 

075273 

035164 



075250 
062550 



OOOOOO 
057164 

OOOOOO 



R50PI 

R50CL 

R50CL0 

R50CL7 

R50C1 

R50C10 

R50C17 

R50VM 

R50LS 

R500D7 

SKPDEV: 



GTLIN: 
HANNAM: 

ODTBLK: 

INDNAM: 

RLBF; 
RLBFND 

ODTSTA 
MEMLIM 
HGENFL 



= -^RPI 

= -^RCL 

= -^RCLO 

= •''RCL7 

= •-'RCl 

= 'RCIO 

= -^RCl? 

= -^RVM 

= '-RLS 

= '■RODT 
. RAD50 



; "PI 
; "CL 



; "CI 



; "LS 



/TT DK SY CL CI PI 



. BYTE 0> 110 

. RAD50 /SY XXX TSX/ 



. RAD50 

, RAD50 

. WORD 
. WORD 

WORD 
. WORD 
. WORD 



/SY SYSODTREL/ 



/SY IND 






o 





3AV/ 



000242 OOOOOO 



000001 



000244 
000252 
000254 



000262 



075250 
100020 
OOOOOO 



000 



062550 
OOOOOO 



OOOOOO 
OOOOOO 



ICONFG: .WORD i Initial i zation configuration uiord 

Flag bits in ICONFIG 
EXTLSI = 1 ;Q-bus system with more than 256Kb 

Simulated shared run-time control block for PI handler 
PISRT: . RAD50 /SY PI TSX/ 
. WORD 0, 0. 

Byte data cells 



PPTERM: . BYTE 
. EVEN 



;1 if printer port is T/S terminal 



f 
f 

i 
i 
i 
f 

c 

€ 



I 



C 

f 



TSINIT - 


— TSX s 


tartup 


i 

2 






3 






4 






5 






6 






7 






8 






9 






10 






11 




000000 


12 




000001 


13 




000002 


14 




000003 


15 






16 


000264 




17 


000264 


004 


IS 


000267 


005 


19 


000272 


005 


20 


000275 


005 


21 


000300 


005 


22 


000303 


005 


23 


000306 


005 


24 


000311 


005 


25 


000314 




26 


000314 


005 


27 


000317 


005 


28 


000322 




29 
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The folioujing table is used to identify the supporting RT-11 monitor- 
version number for those features which depend 



on it. 



The DL, XL and MU handlers require a minimum supporting RT-11 version. 
The CL version number emulates the supporting RT-11 XL's ***VER. 
The LD translation table format changed at RT-11 V5. 4. 



1 s: 



000 
000 
001 
035 
006 
044 
002 
003 

004 
005 





; The 


format o 


f the tab 




! 


RT*VER 


= 






RT*UPD 


= 1 






CL*VER 


= 2 






RTV*SZ 


= 3 




RTVER: 




i V4. is 


377 


RT40: 


. BYTE 


4,0,-1 


377 


RT50: 


. BYTE 


5. 0, -1 


020 


RT51: 


. BYTE 


5, 1, 16. 


020 


RT51X: 


. BYTE 


5,35, 16. 


020 


RT51B: 


. BYTE 


5,6, 16. 


020 


RT51C: 


. BYTE 


5,44, 16. 


021 


RT52: 


BYTE 


5, 2. 17 


021 


RT53; 

RTVDEF: 


. BYTE 


5,3, 17. 


022 


RT54: 


. BYTE 


5,4, 18. 


022 


RT55: 
RTVEND: 


. BYTE 


5, 5, IS. 



EVEN 



i Major system version number 

; Minor system version number (update number) 

.1— . 1 .-, A. .- J Y 1 K , t^-^ *~ 4 ^f^ «.! . j ivt h » ...^ 

, c:.iiiu X ca uSU Ai— v c i r>.Luii iiuiiiuci 

iSize of a version table entry 

the earliest supported version of RT-11 
i 4. did not support XL 
,5.0 did not support XL 

i Another flavor of 5. 1 



Default emulation version 



I 



i 
i 

< 

i 

< 
i 
€ 

i 
I 
I 



i 
i 
i 
f 

I 
I 
i 

c 

c 

< 

f 

I 

i 
( 
t 
t 
< 
C 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



000000 
000001 
000002 
000004 



122 
000322 
000326 
000332 
000336 



The folloujing tables are used to determine the minimum RT-11 monitor 
and update versions required for particular devices. 
There are three arguments for each handler definition: 

Arg 1 = Handler id code. 

Arg 2 = Ptr to minimum acceptable RT-11 version and update entry. 

. MACRO HANVER DEVID, MNVPTR 

. BYTE DEVID i ID code for device type 

.BYTE > Unused filler entry 

.WORD MNVPTR .Minimum RT-11 version and update label 

. ENDM HANVER 



Define offsets into handler version table 



HV*ID 

HV*DMY = 

HV*VER = 

HV**SZ = 




1 
2 
4 



j Handler identification code 

.Unused entry 

i Minimum RT-11 version 

iSize of handler version table entry 



Define minimum versions for various handlers 
HVTBL ■ 



HANVER DI*DU, RT50 
HANVER DI*XL, RT51B 
HANVER DI*MU, RT54 



DU 
XL 
MU 



(5. 0) 
(5. IB) 
(5. 4) 



HUPKin • 



f 
f 
f 

c 

I 



I 

€ 

« 
{ 
f 
4 

t 

< 
i 



I 
I 



TSINIT 
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3 




4 


000000 


5 


000002 


h 


000004 


7 




8 




9 




10 




11 




12 




13 


000336 


14 


000336 


15 


000342 


16 


000346 


17 


000352 


IS 


000356 


19 


000362 


20 


000366 


21 


000372 


22 


000376 


23 


000402 


24 


000406 


25 


000412 


26 


000416 


27 


000422 


28 


000426 


29 


000432 


30 


000436 


31 


000442 


32 


000446 


33 


000452 


34 


000456 


35 


000462 


36 


000466 


37 


000472 


38 


000476 


39 


000502 


40 


000506 


41 


000512 


42 


000516 



The f'olioujing table defines default control flags for certain devices. 



DV*NAM = 
DV*FLG = 
DV**SZ = 



DVFL 



. MACRO 
. RAD50 
. WORD 
. ENDM 



DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 







DEFFLG 
/ 'DEV/ 
FLAGS 
DEFFLG 



i Rad50 name of device 
i Flags for device 
iSize of a table entry 



DEV, FLAGS 

; DV«NAM 
i DV*FLG 



<CR>, <DXf MPH> 
<CT>, <DX*MPH> 
<DB>, <DX*DMA!DX*MPH> 
<DD>, <DX*NHM> 

<dl>, <dx«dma!dx*mph!dx*ibh> 
<:dm>, <:dx*dma!DX$nhm> 

<DP>, <DX*DMA> 
<DS>, <DX$DMA> 
<DT>, <DX*DMA> 
<DU>, <DX*DMA f DX*NHM ! DX*NST> 

<DW>, <:dx*mph> 

<DX>, <DX«MPH> 

<DY>, <DX*DMA!DX$NHM> 

<DZ>, <DX*MPH> 

<FW>, <DX«DMA> 

<LP>, <DX*MPH> 

<LS>, <DX*MPH> 

<MM>, <DX«DMA!DX*MPH)DX*IBH> 

<MS>, <DX«DMA ! DX*MPH ! DX* I BH> 

<MT>, <DX*DMA ! DX*MPH ! DX*IBH> 

<:MU>, <DX*DMA ! DX*NHM ! DX*IBH i DX*NST> 

<NL>, <DX*MPH> 

<PC>, <DX*MPH> 

<RF>, <DX*D«A> 

<RK>, <DX«DMA?DX*MPH> 

<VM:>, <DX*EBA ! DX*NCA i DX*NHM> 

<XC>, <DX*MPH> 

<XL>. <DX*MPH> 



DVFLND: 



f 
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f 
f 
I 

c 
c 
« 

f 
< 

4 



TSINIT - 


-- TSX s 


tartup i 


i 
2 






3 






4 






5 






6 






7 




000000 


8 




000002 


9 




000004 


10 




000006 


11 






12 




000031 


13 






14 


000516 




15 


000744 




16 


000744 


000516' 


17 






18 






19 






20 


000746 


012700 


21 


000750 


077167 


22 


000752 


046543 


23 


000754 





The fDlloiuing data structures are used to hold information about 
TSX-Plus overlays as they are being initialized. 

Offsets in structure for each overlay 

; Total space needed for overlay 

; 0==>Load into XM space, l=->over TSINIT 

; Pointer to overlay table entry 

;Size of each overlay entry 

i Maximum number of system overlays 

i Reserve room for table 
; -Define end of table 

i Pointer past last used entry in table 
> 

i Table of system overlays that must be loaded over TSINIT 



OS*SIZ 


= 





OS*FLG 


= 


2 


03$0VL 


= 


4 


0S««S2 


=r 


6 


i 
MAXOVL 


=: 


25. 


> 

OSTABL; 


. BLKB 


OS**SZ*MAXOVL 


OSEND: 






OSLAST: 


. WORD 


OSTABL 



LOWOVL: . RAD50 /CSH/ 

. RAD50 /TIO/ 

. RAD50 /LOK/ 

LOWEND: 



TSCASH 

TSTIO 

TSLOCK 

End of table 



I 

i 
C 
i 
i 

i 



i 
C 

c 

I 
I 

< 

4 

f 
C 
f 



i 
I 



TSINIT — TSX startup initializ MACRO V05. 05 Tuesday 17-Jan-89 13:55 Page 6 



I 

c 



i 










• w._ .^. 


2 










J T*=x^ 


3 
4 










/ 


5 


000754 


077 


124 


123 


TSXHD; 


6 


000764 


111 


156 


166 


BADLIN. 


7 


001017 


111 


156 


166 


BDVMBG: 


8 


001055 


114 


151 


156 


BDLMSG: 


9 


001067 


000 






CRLF: 


10 


001070 


124 


123 


130 


REQMIS: 


11 


001137 


103 


141 


156 


BADOPN: 


12 


001175 


103 


141 


156 


RSFERR: 


13 


001237 


116 


165 


155 


CQNSFC: 


14 


001305 


103 


141 


156 


BDSPOP: 


15 


001342 


111 


156 


163 


BDSF: 


16 


001411 


103 


141 


156 


NOKMON: 


17 


001452 


103 


141 


156 


NDCCL: 


IS 


001510 


103 


141 


156 


CFHMSG; 


19 


001552 


105 


162 


162 


ERHMSG: 


20 


001616 


111 


156 


166 


ERHIMDV: 


21 


001670 


Hi 


156 


166 


NOCSRR: 


22 


001721 


105 


162 


162 


ERHINS: 


23 


002000 


124 


123 


130 


TSXRUN: 


24 


002027 


110 


141 


156 


HSGER. 


25 


002077 


103 


157 


155 


NOCLOK: 


26 


002165 


116 


157 


040 


NXMMSG: 


27 


002223 


116 


157 


040 


NEXMSG: 


28 


002272 


103 


141 


156 


NOODT: 


29 


002335 


115 


141 


160 


HN2BIG: 


30 


002401 


105 


162 


162 


ODTRDM: 


31 


002442 


110 


141 


156 


NOSYDV: 


32 


002507 


107 


145 


156 


TOOBIG: 


33 


002551 


122 


145 


144 


REDUCE: 


34 


002602 


056 


040 


142 


BYTES: 


35 


002612 


111 


156 


163 


PHSOVF: 


36 


002702 


103 


141 


156 


COSRT: 


37 


002745 


103 


141 


156 


SVERR: 


38 


003000 


111 


156 


163 


TSXSIZ- 


39 


003066 


105 


162 


162 


RDERR: 


40 


003121 


Hi 


156 


163 


SRTOVF: 


41 


003211 


111 


156 


163 


CSHOVF: 


42 


003262 


103 


141 


156 


INDOPN: 


43 


003312 


103 


141 


156 


UCLOPN: 


44 


003347 


040 


101 


102 


R50CHR: 


45 












46 













NLIST 

ASCII 

ASCII 

ASCII 

ASCII 

BYTE 

ASCI I 

ASCIZ 

ASCI 2 

ASCII 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCIZ 

ASCI I 

ASCIZ 

ASCIZ 

ASC I Z 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCII 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCIZ 

ASCII 

EVEN 

LIST 



BEX 

/7TSX-F- 

'Invalid CSR for T/S line: '<200> 

'Invalid vector for T/S line: '<200> 

/Line # = /<200> 



/TSX generation did not include device /<200> 

/Cannot open program suap file/ 

/Cannot open PLAS region swap file/ 

/Number of contiguous blocks needed = /<200> 

/Cannot open spooled device: /<200> 

/Insufficient disk space for spool file/ 

/Cannot find "SY: TSKMON. SAV" file/ 

/Cannot find "SY: CCL. SAV" file/ 

/Cannot find device handler file: /<200> 

/Error reading device handler file: /<200> 

/Invalid RT-11 version for device handler: /<200> 

/Invalid CSR for device: /•=C200> 

/Error executing installation code for device: /<200> 

/TSX is already running/ 

/Handier not generated with XM support; /<200> 

/Computer line time clock (50 or 60 Hz > is 

/No memory management hardware/ 

/No extended memory management hardware/ 

/Cannot locate "SY: SYSDDT. REL" file/ 

/Mapped handler is larger than 8KB: /<200> 

/Error on read of SYSODT rel file/ 

/Handler for SY device uias not loaded/ 

/Generated TSX system is too large/ 

/Reduce size of TSGEN by /<200> 

/. bytes/ 

/Insufficient total physical 

/Cannot open shared run-time 

/Cannot locate "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Error reading "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Insufficient memory space for data cache/ 

/Cannot open TSXIND file/ 

/Cannot open TSXUCL data file/ 

/ ABCDEFGHIJKLMNOPQRSTUVWXYZ*. #0123456789/ 

BEX 



c 



not working/ 



memory for generated system/ 
file: /<200> 

all mapped system regions/ 

all shared run— time systems/ 






i 



{ 
I 

I 

( 
I 
f 
i 
i 

€ 

I 

( 
( 

I i 
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012737 OOOOOOe OOOOOOG 



123456 OOOOOOG 
OOOOOOG 



MOV 
CLRB 



1 

2 

3 

4 

5 

6 

7 

8 

9 003420 
10 
11 
12 

13 003420 004737 004260^ 
14 
15 
16 

17 003424 
18 
19 
20 
21 
22 
23 

24 003432 012777 

25 003440 105037 

26 i 

27 ; If we ar 

28 i 

29 . IF 
30 
31 
32 
33 

34 . ENDC 

35 
36 
37 
38 
39 
40 
41 

42 003444 012702 OOOOOOG 

43 003450 012700 000044 

44 003454 105737 OOOOOOG 

45 003460 001004 

46 003462 012702 OOOOOOG 

47 003466 012700 000340 

48 003472 012701 000120 

49 003476 010221 

50 003500 010021 

51 003502 105737 OOOOOOG 

52 003506 001411 

53 003510 105737 OOOOOOG 

54 003514 001006 

55 003516 005200 

56 003520 032700 000020 

57 003524 001402 



. SB I ! L * «• * TSX initialization * ■«• «• 

. SBTTL * * * Initialization taking over control from RT-11 * * * 



The initialization code from this point oniuard takes over 
control from RT-11. 

This code is placed at the front of TSINIT so that non-initialized 
data structures can be allocated over it. 

TAKOVR ; 

Read in system overlays that go over TSINIT 

CALL INIOvL j Read overiays over TSINIT 

Set pointer to monitor offset vector 

MOV #MONVEC> @#RMON ; SET POINTER TO MONVEC TABLE 

Initialize last word in interrupt stack area so uie won't report a 

stack overflow if an interrupt occurs. 

Set STKLVL to to cause INTEN not to switch to interrupt 

stack during initialization. 



a T« 1 11 



#123456> eiNTSND ; Say stack has not overflowed 

STKLVL i Say we are already on interrupt stack 

tning on a Professional.- disable its interrupts 



NE, PROASM 
TSTB PROFLG 
BEQ 7* 
CALL PRONOP 
BR 5* 
> NE. PROASM 



j Are we running on a PROT' 

; Br if not on a PRO 

{Disable its interrupts 

i Ignore unexpected interrupts on PRO 



Set up vectors to catch unexpected interrupts 

Note: We encode the interrupt vector address in the PS — 

the low-order two bits of the address are dropped <they are 

always zero) and the remainder of the address is encoded in the 

PS fields priority (high-order 3 bits) and n-z-v~c (low-order 4 bits). 

SEND UNEXPECTED INTERRUPTS TO THIS ROUTINE 

120 ENCODED IN PS FIELDS 

ARE WE TO IGNORE UNEXPECTED INTERRUPTS? 

BR IF NOT 

ROUTINE TO GO TO TO IGNORE INTERRUPT 

SET PRI0=7 IN PS 

INIT ALL VECTORS STARTING AT 120 

SET PC FOR INTERRUPT 

SET PS FOR INTERRUPT (ENCODED ADDRESS VALUE) 

ARE WE TO IGNORE UNEXPECTED INTS? 

BR IF YES 

IS THIS A PRO? 

BR IF YES 

ADVANCE ENCODED ADDRESS 

DID WE CARRY INTO "T"-FIELD? 

BR IF NOT 



7*; 


MOV 


#UEX INT, R2 




MOV 


#44, RO 




TSTB 


VUXIFL 




BNE 


10* 


5$: 


MOV 


#UEXRTN, R2 




MOV 


#340, RO 


10*: 


MOV 


#120, Rl 


1$: 


MOV 


R2, (RD't- 




MOV 


RO, (Rl)+ 


6$: 


TSTB 


VUXIFL 




BE(3 


2* 




TSTB 


PROFLG 




BNE 


2* 




INC 


RO 




BIT 


#20, RO 




BEQ 


2* 



f 
f 
f 

I 

« 
I 



I 
f 
t 

i 
i 

I 

i 

i 
c 



I 
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5S 


003526 


062700 


000020 




59 


003532 


020127 


000420 




60 


003536 


103757 






61 


003540 


010237 


000060 




62 


003544 


012737 


000014 


000062 


63 


003552 


010237 


000064 




64 


003556 


012737 


000015 


000066 


65 










66 










67 










68 










69 










70 


003564 


012700 


000340 




71 


003570 


012737 


OOOOOOG 


OOOOOOG 


72 


003576 


010037 


000002G 




73 










74 










75 










76 


003602 


005001 






77 


003604 


012721 


000137 




78 


003610 


012721 


OOOOOOG 




79 


003614 


012721 


OOOOOOG 




80 


003620 


005021 






81 


003622 


012721 


OOOOOOG 




82 


003626 


005021 






83 


003630 


012721 


OOOOOOG 




84 


003634 


010021 






85 


003636 


012721 


OOOOOOG 




86 


003642 


005021 






87 


003644 


012721 


OOOOOOG 




88 


003650 


010021 






89 


003652 


012721 


OOOOOOG 




90 


003656 


005021 






91 


003660 


012721 


OOOOOOG 




92 


003664 


005021 






93 


003666 


012737 


OOOOOOG 


000114 


94 


003674 


010037 


000116 




95 


003700 


012737 


OOOOOOG 


000244 


96 


003706 


010037 


000246 




97 


003712 


012737 


OOOOOOG 


000250 


98 


003720 


005037 


000252 




99 










100 










101 










102 


003724 


010546 






103 


003726 


012705 


000006 




104 


003732 


004737 


OOOOOOG 




105 


003736 


012605 






106 










107 










108 










109 


003740 


004737 


004616' 




no 








: 


111 








i 


112 








i 


113 


003744 


004737 


005234 ' 




114 








> 



CMP 
BLD 
MOV 
MOV 
MOV 
MOV 



Rl.#420 

1* 

R2, e#60 

#14, e#62 

R2, @#64 

#15, ©#66 



Page 7-1 



FORCE CARRY OUT OF T-FIELD AND INTO FRIO FIELD 

DONE ALL INTERRUPT VECTORS OF INTEREST? 

BR IF NOT 

CATCH CONSOLE TERMINAL VECTOR TOO 

ENCODED 60 

; ENCODED 64 



f 



Direct clock interrupt to a dummy RTI instruction to avoid it causing 
trouble during the initialization process uhen things aren't set up 
and ready to go. 



L$: 



MOV 
MOV 



#340, RO ; PRIORITY 7 PS 

#CLKRTI,€#CLKVECi Send clock interrupt to RTI instruct for now 

RO, @#CLKVEC+2 



Take over traps, EMT, BPT, etc. 



CLR Rl 

MOV #137, <R1)+ 

MOV #JMPO, < R 1 ) + 

MOv #TRP4, < H 1 ) f 

CLR ( R 1 ) + 

MOV #TRP10, (Ri) + 

CLR (Rl)+ 

MOV #TRP14, <R1 ) + 

MOV RO, <R1)+ 

MOV #TRP20, <R1)+ 

CLR <R1)+ 

MOV #TRP24. <R1) 1- 

MOV RO, <R1>+ 

MOV #EMTENT, <R1)+ 

CLR <R1)+ 

MOV #TRP34, <R1)+ 

CLR (Rl)+ 

MOV #MEMPAR, e#114 

MOV RO, e#116 

MOV #FPTRAP, ©#244 

MOV RO, @#246 

MOV #TRP250, e#250 

CLR ©#252 



Start at location O 

tJMP S#JMPOD ==> O 

CATCH JUMPS TO LOCATION 

TRAP 4 

, TRAP 10 

i TRAP 14 (BREAKPOINTS) 

i lOT TRAP 

; POWER FAIL 

iEMT 

; TRAP 

i MEMORY PARITY TRAP 

TRAP 244 — FLOATING POINT TRAP 

Enter FPU trap at priority 7 

TRAP 250 ~- MEMORY MANAGEMENT TRAP 



t 
I 

€ 
i 



Initialize the system mapped region. 



MOV 


R5, ~<SP) 


MOV 


#6, R5 


CALL 


MAPSYS 


MOV 


(SP)+, R5 



SAVE THE CURRENT CONTENTS OF R5 
INITIALIZE TO THE FIRST REGION 
CALL THE SYSTEM MAPPING ROUTINE 
RESTORE THE PREVIOUS CONTENTS OF R5 



Set up Unibus mapping if needed 

CALL SETUMP i SET UP UNIBUS MAPPING 

Initialize time-sharing lines. 

CALL LININI ; INIT LINES & SET UP VECTORS 



I 

t 

I 



I 
« 
i 
I 
i 
c 
f 
f 



( 

{ 
i 

{ 
( 
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8*; 



115 
116 
117 

118 003750 052737 OOOOOOG OOOOOOG 

119 003756 105737 OOOOOOG 

120 003762 001415 

121 003764 023727 OOOOOOG 010000 

122 003772 103411 

123 003774 052737 OOOOOOG OOOOOOG 

124 004002 105737 OOOOOOG 

125 004006 001403 

126 004010 052737 OOOOOOG OOOOOOG 

127 i 

128 .= 

129 J 

130 004016 013737 OOOOOOG OOOOOOG 4$: 

131 004024 013702 OOOOOOG 

132 004030 105022 

133 004032 020237 OOOOOOG 

134 004036 103774 

135 004040 112712 OOOOOOG 
136 
137 
138 

139 004044 004737 004706' 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 004050 013702 OOOOOOG 

153 004054 012700 123456 

154 004060 010022 

155 004062 020237 OOOOOOG 

156 004066 103774 

157 004070 112737 177777 OOOOOOG 
158 
159 
160 

161 004076 000137 OOOOOOG 
162 
163 



tnabie memory management 

(The kernel-mode mapping registers are already set up) 



BIS 


#MMENBL 


., @#SROMMR 


TSTB 


SR3FLG 




BEQ 


4* 




CMP 


PHYMEM, 


#4096. 


BLO 


4* 




BIS 


#EMMAP, 


@#SR3MMR 


TSTB 
BEQ 


MEM256 
4* 




BIS 


#IOMAP, 


@#SR3MMR 



Turn on memory management 

Does machine have memory management reg 3? 

Br if register does not exist <no ext. mem. ) 

Does machine have at least 256Kb phys memory? 

Br if not 

Set extended memory on 

Will TSX-Plus use at least 256Kb? 

Br if not 

Turn on 22-bit memory management for I/O 



Initialize the memory allocation table 



MOV 


MAPPAR, €#KPAR5 


MOV 


LOMAP, R2 


CLRB 


<R2) + 


CMP 


R2, HIMAP 


BLO 


8$ 


MOVB 


#MA*SYS, <R2) 



i Map to memory allocation table 

; Point to 1st user-page entry 

; Say page is free 

i Done all user pages? 

jLoop if not 

;Set flag marking start of system pages 

Set up I/O device interrupt vectors. 

CALL DEVVEC > SET UP DEVICE INTERRUPT VECTORS 

If sue are running on a Professional.- initiailize the PI handler 



IF 



NE, PROASM 
TSTB PROFLO 
BEQ 3* 
CALL PROHAN 
CALL PIDVEN 
J NE, PROASM 



i Are we running on a Professional? 

i Br if not 

/Initialize the PI handler 

> Make device table entry for PI 



ENDC 

Initialize interrupt stack area 
3*: 



12*: 



MOV 


INTSND, R2 


MOV 


#123456. RO 


MOV 


RO, (R2) + 


CMP 


R2, INTSTK 


BLO 


12* 


MOVB 


#-l,STKLVL 



Point to base of stack area 

Get initialization value 

Initialize the interrupt stack area 

Finished? 

Loop if not 

Say uie are not running on interrupt stack 

Enter TSEXEC to complete initialization 

JMP INIJMP i ENTER INITIALIZATION ROUTINE IN TSEXEC 

Abort the initialization 



164 

165 004102 013737 000042' OOOOOOG INISTP: MOV CLKIOO, S#CLKVEC i Restore RT-11 clock vector 

166 004110 013737 000044' 000004 MOV RTTRP4, €#4 i Restore trap 4 vector 

167 004116 013737 000046' OOOOOOG MOV RTMNVC, @#RMON ; Restore RT~11 monitor pointer 

168 004124 9*: EXIT ; RETURN TO RT-11 
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LODINI - 
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t over T 


X 
2 








3 








4 








5 








6 








7 








8 








9 


004126 


010146 




10 


004130 


010346 




11 


004132 


010446 




12 








13 








14 








15 


004134 


016201 


000004 


16 








17 








18 








19 


004140 


016204 


000000 


20 


004144 


072427 


000005 


21 


004150 


020461 


OOOOOOG 


22 


004154 


101402 




23 


004156 


016104 


OOOOOOG 


24 








25 








26 








27 


004162 


010503 




28 


004164 


072327 


000006 


29 


004170 






30 


004224 


103406 




31 








32 








33 








34 


004226 


010561 


OOOOOOG 


35 








36 








37 








38 


004232 


012604 




39 


004234 


012603 




40 


004236 


012601 




41 


004240 


000207 




42 








43 








44 








45 


004242 






46 


004250 






47 


004256 
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LODINI — Load a segment over TSINIT 

LODINI is called to read an overlay segment over TSINIT. 

Inputs: 
R2 = Pointer to OSTABL entry for segment to be loaded. 
R5 = 64-byte block # where segment is to be loaded. 



LODINI: MOV 
MOV 
MOV 



R 1 , ~ < SP ) 
R3, -(SP) 
R4, -<SP) 



1*: 



Get pointer to iinker-buiit overlay entry 

MOV 0S«0VL<R2), Rl ; Get pointer to linker-built table 

Determine how much code to read from the segment 

MOV 0S*SIZ(R2), R4 iGet # 64--byte blks allocated for segment 

ASH #5i R4 i Convert to # words 

CMP R4i0. SIZ(Rl) i Compare with original segment code size 

BLOS 1* i Br if segment was truncated by init 

MOV SIZ<R1),R4 iGet code size 

Read the segment into memory 

MOV R5;R3 iGet 64~byte block # 

ASH #6i R3 ; Convert to byte address 

. READW #AREA, #17, R3, R4>0. BLK<R1) 

BCS 10* i Br if error on read 

Store the physical address of the segment into the overlay descriptor 



MOV 
Fini shed 



R5, 0. PAR<R1.^ 



i Remember physical address of segment 



<SP)+, R4 
(SP)+, R3 
(SP)+, Rl 



MOV 
MOV 
MOV 
RETURN 

Error on read 



10*: . PRINT #TSXHD 
. PRINT #RDERR 
. EXIT 



i 

c 

« 
i 

I 

€ 
i 

t 

I 
< 

I 

i 
i 

i 
f 
i 



( 
( 

< 
( 
f 
I 
I 

I 
t 

c 

I t 

( 



TSINIT — TSX startup initializ MACRO V05. 05 
INIOVL — Load system overlays over TSINIT 



Tuesday 17-Jan-89 13: 55 Page 9 



X 

2 

3 

4 

5 

6 

7 

8 

9 004260 
10 004262 
11 
12 
13 

14 004264 

15 004270 

16 004274 
17 

le 

19 

20 004300 

21 004304 

22 004310 

23 004312 

24 004316 

25 004322 

26 004326 

27 004332 

28 004336 
29 

30 
31 

32 004340 

33 004344 

34 004350 

35 004354 
36 

37 
38 

39 004360 

40 004364 

41 004366 

42 004372 

43 004376 
44 

45 
46 

47 004402 

48 004406 

49 004410 

50 004414 

51 004420 
52 

53 
54 

55 004424 

56 004426 

57 004430 



010246 



013705 
072527 
042705 



012702 
005762 
001406 
004737 
004737 
066205 
062702 
020237 
103762 



013702 
072227 
012705 
004737 



013702 
001406 
072227 
012705 
004737 



013702 
001406 
072227 
012705 
004737 



012605 
012602 
000207 



000140' 

177772 

176000 



000516' 
000002 

004470 ' 
004126' 
000000 
000006 
nnn744 ' 



OOOOOOG 
000006 
OOOOOOG 
004432 ' 



OOOOOOG 

000006 
OOOOOOG 
004432 ' 



OOOOOOG 

000006 
OOOOOOG 
004432 ' 



.SumL INIuVL — Load system overlays over TSINIT 

INIOVL is called to load into memory those system overlays that 
aT(s to be placed over the TSINIT code. 

Inputs: 
Overlay segment information is in OSTABL. 



INIOVL: MOV 
MOV 



R2> -<SP) 
R5, -<SP) 



MOV 


OVLBAS. R5 


ASH 


#-6i R5 


BIG 


#176000, R 5 



1*: 



;*: 



MOV 


#OSTABL, R2 


TST 


0S*FLG<R2) 


BEQ 


2« 


CALL 


KEYSEG 


CALL 


LODINI 


ADD 


0S«SIZ<R2),R5 


ADD 


#0S**SZ,R2 


CMP 


R2> OSLAST 


BLO 


1* 



3$; 



Initialize pointer to start of memory area for overlays 

Start of area for overlays 

Convert to 64-bytB # 

Clear possible propagated sign bits 

Begin loop to load each overlay that goes over TSINIT 

i Point to 1st overlay segment entry 

; Does this segment go over TSINIT? 

i Br if not 

; Remember base of some segments 

i Load the segment 

; Advance memory pointer 

; Point to entry for next segment 

i Finished all segments? 

; Loop if not 

Initialize entry point vector for TSTIOX segment 

;Get addr of base of TSTIOX 
i Convert to byte address 
i Point to entry point vector 
i Set up entry point vector 

Initialize entry point vector for TSCASH segment 

iGet addr of base of TSCASH 
i Br if TSCASH not loaded 
i Convert to byte address 
J Point to entry point vector 
i Set up entry point vector 

Initialize entry point vector for TSLOCK segment 

;Get addr of base of TSLOCK 
i Br if TSLOCK not loaded 
; Convert to byte address 
; Point to entry point vector 
j Set up entry point vector 



MOV 


TIOBAS, R2 


ASH 


#6, R2 


MOV 


#TIOVEC, R5 


CALL 


ENTVEC 



MOV 


CSHBAS, R2 


BEQ 


3* 


ASH 


#6, R2 


MOV 


#CSHVEC, R5 


CALL 


ENTVEC 



9*: 



MOV 


LOKBAS, R2 


BEG 


9* 


ASH 


#6, R2 


MOV 


#LOKVEC, R5 


CALL 


ENTVEC 


Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R2 


RETURN 
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entr-y point vector for oVerlai 



3 






4 






5 






6 






7 






8 






9 






10 






11 


004432 


010246 


12 


004434 


010446 


13 


004436 


010546 


14 


004440 


010204 


15 


004442 


062704 000004 


16 


004446 


005722 


17 


004450 


012415 


19 


004452 


060225 


19 


004454 


005715 


20 


004456 


001774 


21 






22 






23 






24 


004460 


012605 


25 


004462 


012604 


26 


004464 


012602 


27 


004466 


000207 



ENTVEC is called to set up addresses in an entry point vector for 
overlay segments such as TSCASH that are loaded at addresses different 
from where they are linked. 

Inputs: 
R2 = Address of base of segment. 
R5 = Pointer to vector that is to be initialized (word with -1 terminates) 



ENTVEC: 



1$: 



MOV 
MOV 
MOV 
MOV 
ADD 
TST 
MOV 
ADD 
TST 
BEQ 



Finished 



MOV 
MOV 
MOV 
RETURN 



R2> -<SP) 
R4, -<SP) 
R5, -<SP) 
R2, R4 
#4, R4 
(R2) + 

(R4)+, <R5) 
R2, (R5) + 
(R5) 
1* 



(SP)+i R5 
(SP)+, R4 
(SP)+, R2 



■> Get addr of base of segment 

5 Point to start of vector in segment 

iOet value to use to relocate offsets 

jGet offset to entry point within segment 

j Convert to absolute address 

; Any more words to initialize? 

j Br if yes 
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I 
( 
I 
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9 








10 


004470 


010446 




11 








12 








13 








14 


004472 


016200 


000004 


15 


004476 


016004 


0000000 


16 








17 








18 








19 


004502 


020427 


052077 


20 


004506 


001003 




21 


004510 


010537 


0000000 


22 


004514 


000436 




23 


004516 


020427 


110466 


24 


004522 


001003 




25 


004524 


010537 


OOOOOOG 


26 


004530 


000430 




27 


004532 


020427 


103112 


28 


004536 


001003 




29 


004540 


010537 


OOOOOOG 


30 


004544 


000422 




31 


004546 


020427 


046543 


32 


004552 


001003 




33 


004554 


010537 


OOOOOOG 


34 


004560 


000414 




35 


004562 


020427 


012700 


36 


004566 


001003 




37 


004570 


010537 


OOOOOOG 


38 


004574 


000406 




39 


004576 


020427 


077167 


40 


004602 


001003 




41 


004604 


010537 


OOOOOOG 


42 


004610 


000400 




43 








44 








45 








46 


004612 


012604 




47 


004614 


000207 
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system overlays 

. 3BTTL KEYSEG — Remember memory position of system overla 



y s 



KEYSEG is called to remember the physical memory position of some 
keu sustem overlaij cipnmon-hc; 

Inputs: 
R2 = Pointer to segment entry in OSTABL overlay table. 
R5 = Base 64-byte block physical memory for segment. 

KEYSEG: MOV R4, -(3P) 

Get the name of the segment out of the linker-built segment block 

MOV 0S*0VL(R2),R0 i Point to linker-built entry 
MOV O, ADR(R0),R4 ; Get the name of the segment 

See if this is a segment whose address we want to remember 



1*: 



3*: 



4*: 



5$: 



6*: 



CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

Finished 



8*; 



MOV 

RETURN 



R4, #R50MSG 

1* 

R5, MSGBAS 

8* 

R4, #R50WIN 

3* 

R5, WINBAS 

a* 

R4> #R50USR 

4* 

R5. USRBAS 

8* 

R4, #R50L0K 

5* 

R5, LOKBAS 

8* 

R4, #R50CSH 

6* 

R5, CSHBAS 

8* 

R4, #R50TI0 

S« 

R5, TIOBAS 

8* 



(SP)+, R4 



i Is this the TSMSG segment'? 

J Br if not 

; Remember base of TSMSG segment 

.: Is this the TSWIN segment? 

» Br if not 

i Remember base of TSWIN segment 

; Is this the TSUSR segment? 

; Br if not 

; Remember base of TSUSR segment 

; Is this the TSLOCK segment? 

j Br if not 

j Remember base of TSLOCK segment 

> Is this the TSCASH segment? 

; Br if not 

; Remember base of TSCASH segment 

; Is this the TSTIOX segment? 

; Br if not 

J Remember base of module 
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Remember memory position of system overlays 



> ( 



4 
I 

C 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



.IF NE. <PRDASr1~l> i Assemble for PDP-il 

. SBTTL SETUMP — Set up Unibus mapping if needed 



004616 010246 

004620 010346 

004622 013746 000004 

004626 012737 004674' 000004 



004634 105737 OOOOOOG 
004640 001415 



SETUMP is called to set up the Unibus map registers for 11/44 and 

11/70 systems which more than 256Kb of memory. 

If Unibus mapping is needed, the Unibus map registers # 0—4 are 

initialized for a 1-to-l mapping with the low 40Kb of memory 

so that I/O to system buffers in the low memory area can be done without 

having to do Unibus mapping. 



Outputs: 
UBUSMP: 

SETUMP : MOV 
MOV 
MOV 
MOV 



ls=:=:>Do Unibus mapping; 0==>Don't do Unibus mapping. 



R2/ -<SP) 
R3, -(SP) 
@#4, -(SP) 
#9*, S#4 



i SAVE TRAP VECTOR 
i CATCH TRAPS 



See if this is a type of maching that needs unibus mapping 



TSTB 
BECJ 



UBUSMP 
9* 



i Is UNIBUS mapping needed? 
> Br if not 



Unibus mapping is needed 

Load unibus map registers # 0-4 to point to low 48Kb of memory. 



004642 012705 OOOOOOG 

004646 005004 

004650 012700 000005 

004654 010425 

004656 005025 

004660 062704 020000 

004664 077005 



004666 052737 OOOOOOG OOOOOOG 



004674 012637 000004 

004700 012605 

004702 012604 

004704 000207 



2*: MOV #UMRADR, R5 

CLR R4 

MOV #5, RO 

1$: MOV R4, (R5>+ 

CLR (R5)+ 

ADD #8192. , R4 

SOB RO, 1* 



POINT TO CONTROL REGISTER FOR UNIBUS MAP 

START MAPPING TO BOTTOM OF MEMORY 

LOAD 5 MAP REGISTERS 

SET LOW-ORDER VALUE IN MAP REGISTER 

CLEAR HIGH-ORDER VALUE IN MAP REGISTER 

ADVANCE MEMORY ADDRESS 

LOOP IF MORE MAP REGISTERS TO LOAD 



Turn on Unibus mapping 

BIS #IOMAP, @#SR3MMR i ENABLE UNIBUS MAPPING 



Finished 



9*: 



MOV 
MOV 
MOV 

RETURN 
. IFF 



( SP ) +, @#4 
<SP)+, R5 
(SP)+, R4 



i RESTORE TRAP VECTOR 



j NE* <PR0ASM-1> ; Following code for Pro-only assembly 

j Define dummy SETUMP routine for Pro 

SETUMP: RETURN 

. ENDC ; NE, <PR0ASM-1> 
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1 
2 








3 








4 








5 








6 


004706 


010146 




7 


004710 


010346 




8 


004712 


010546 




9 


004714 


013746 


0000000 


io 








11 








12 








13 


004720 


012701 


000002 


14 


004724 


016103 


OOOOOOG 


15 


004730 


020327 


000006 


16 


004734 


101436 




17 








18 








19 








20 


004736 


016100 


OOOOOOG 


21 


004742 


001402 




22 


004744 


010037 


0000000 


23 








24 








25 








26 


004750 


005023 




27 


004752 


005013 




28 


004754 


162703 


000010 


29 








30 








31 








32 


004760 


005005 




33 


004762 


005713 




34 


004764 


001422 




35 


004766 


002403 




36 


004770 


004737 


005060 ' 


37 


004774 


000416 




38 








39 








40 








41 


004776 


012300 




42 


005000 


006300 




43 


005002 


060003 




44 


005004 


005713 




45 


005006 


002005 




46 


005010 


005723 




47 


005012 


012346 




48 


005014 


004777 


OOOOOOG 


49 


005020 


012605 




50 


005022 


004737 


005060 ' 


51 


005026 


005713 




52 


005030 


003374 




53 








54 








55 








56 


005032 


062701 


000002 


57 


005036 


020137 


OOOOOOG 



Tuesday 17-Jan-89 13:55 Page 13 



. SBTTL DEVVEC — Set up device vectors 



DEVVEC is called to set up device interrupt vectors for handlers 
that have been loaded. 



DEVVEC: MOV 
MOV 
MOV 
MOV 



Rl, -<SP> 
R3, -<SP> 
R5, -(SP) 
@#KPAR5, -<SP) 



i Save PAR 5 mapping 

Begin loop to set up vectors for each device 

MOV #2>Ri ; Get index # of Ist device after TT 

MOV HANENT<R1 ) J R3 i Get handier entry point address 

CMP R3, #6 ; Is this a real device? 

BLOS 6* > Br if not 

See if we need to map PAR 5 to this handier 



MOV HANPAR<R1). RO 

BEQ 2* 

MOV RO, e#KPAR5 



; Get PAR 5 base for this handler 
j Br if this is not a mapped handler 
.1 Map PAR 5 to the handler 



Clear CtiE and LQE in handler header 



2*: 



CLR 
CLR 
SUB 



(R3) + 

/ on \ 

#10, R3 



; Clear LQE (4th word in handler) 
i Clear CQE (5th word in handler) 
iPoint to 1st word of handler 



Set up interrupt vectors for this handler 



CLR 

TST 

BE(3 

BLT 

CALL 

BR 



R5 

(R3) 

6* 

5* 

SETVEC 

6* 



5*: 



Multiple vectors. 

MOV (R3)+, RO 

ASL RO 

ADD RO, R3 

TST (R3) 

BGE 7* 

TST (R3)+ 

MOV (R3)+, -(SP) 

CALL ©RPRVEC 

MOV (SP)+, R5 

7*: CALL SETVEC 

TST (R3) 

BGT 7* 



Assume vector base address is 

Any vectors to set up? 

Br if no vectors to set up 

Br if multiple-vector 

Set up the vector 

Finished 



Get offset to list of vector info 

Get byte offset to vector list 

Get absolute address of vector table 

Is this a PRO device with floating vectors? 

Br if not 

Point to word with device ID 

Get device ID 

Get base vector location for device 

This is base of vector locations 

Set up the vector 

Any more vectors to set up? 

Br if yes 



See if there are more devices to set up. 



6*: 



ADD 

CMP 



#2, Rl 

R 1 , NUMDEV 



J Advance device table index 
i More to do? 



I 



t 



c 



I 
I 
f 
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58 005042 

59 

60 

61 

62 005044 

63 005050 

64 005052 

65 005054 

66 005056 



101730 



012637 
012605 
012603 
012601 
000207 



ooooooe 



BL03 

Finished 

MOV 
MOV 
MOV 
MOV 
RETURN 



1* 



<SP)+, e#KPAR5 
(SP)+, R5 
(SP>+, R3 
<SP)+, Rl 



i Br if yes 
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005060 



005062 
005066 



005070 
005072 
005074 
005076 
005100 
005102 
005106 



005110 
005114 
005116 
005120 
005122 
005126 
005132 
005136 
005142 
005146 
005152 



000032 
010446 



005761 
001010 



012300 
060500 
010310 
062320 
012310 
052710 
000450 



013704 
012300 
060500 
010420 
012724 
012724 
012724 
016124 
012724 
012724 
012724 



. SBTTL SETVEC — Set up an interrupt vector for a device 

SETVEC is called to set up one interrupt vector for a device. 

Inputs: 
Rl = Device index number. 
R3 = Pointer into device handler to 3 word cells: 

1. Address of interrupt vector. 

2. Offset to interrupt entry point in handler. 

3. PS for interrupt. 

R5 = Base address to add to vector locations. 

Outputs: 
R3 = Points beyond 3 word info block in handler. 

Size of interrupt catching routine compiled for interrupts to 
mapped handlers: 



1PIVSZ = 26. 
SETVEC: MOV R4, -(SP) 

; Sep if this is a mapped handler 



> Amt of code compiled for mapped ints 



0000000 



TST HANPAR(Ri) 
BNE 1* 



i Is this a mapped handler 
i Br if yes 



This is an unmapped handler. 

Vector interrupts directly to the handler. 



000340 



MOV 


(R3)+, RO 


ADD 


R5, RO 


MOV 


R3, <R0) 


ADD 


(R3)+, <R0)+ 


MOV 


<R3)+, (RO) 


BIS 


#340, (RO) 


BR 


9* 



000122' 



013746 

OOOOOOG 

012737 

OOOOOOG 

OOOOOOG 

012746 

000340 



Get address of interrupt vector 
Add base address to vector location 
Store address of cell in handler 
Add offset to interrupt entry point 
Set PS for interrupt 
Make sure priority = 7 



This is a mapped handler. 

Vector the interrupt to a routine that performs the following functions: 
1. Save the current PAR 5 mapping. 

Map PAR 5 to the handler. 

Push a dummy PC and PS on stack that will send return from handler 

to a routine that will restore the PAR 5 mapping. 

Jump into the handler interrupt entry point. 



2. 
3. 



1*: MOV XMVBAS, R4 

MOV (R3)+, RO 

ADD R5.. RO 

MOV R4, (R0) + 

MOV #013746, (R4) + 

MOV #KPAR5, (R4)+ 

MOV #012737, <R4)+ 

MOV HANP AR ( R 1 ) > ( R4 ) + 

MOV #KPAR5, (R4) + 

MOV #012746, (R4)-f 

MOV #340, (R4)+ 



Point to area where we store interrupt rtn 
Get address of interrupt vector 
Add base address to interrupt location 
Direct interrupt to our routine 
C MOV @#KPAR5, -(SP) 3 

C MOV #par5val,e#KPAR5 1 



I MOV #340, -(SP) 3 



I 

f 

I 



€ 
I 
I 
i 
i 
I 
f 
I 
* 



i 

i 
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SETVEC ■ 

5B 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
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005156 012724 012746 

005162 012724 OOOOOOQ 

005166 012724 000257 

005172 016314 000002 

005176 042714 177760 

005202 052724 000260 

005206 012724 000137 

005212 010314 

005214 062324 

005216 012310 

005220 052710 000340 



005224 010437 000122 



MOV #012746, (R4) + 

MOV ttHANXIT, <R4)+ 

MOV #000257, <R4)+ 

MOV 2(R3)-- <R4) 

BIC #'^C17, <R4) 

BIS #260, (R4)+ 

MOV #000137, <R4)+ 

MOV R3, (R4) 

ADD <R3)+, <R4)+ 

MOV <R3)+, <R0) 

BIS #340, (RO) 



t MOV #HANX I T, - < SP ) 3 

C CCC - Clear all condition codes 3 

r SEx - Set condition codes specified in PS3 



i C JMP e#handler_entry 3 

; Store address of int entry point 

i Set PS for interrupt entry 
iMake sure priority = 7 



005230 012604 
005232 000207 



9$ 



Save address beyond end of compiled interrupt catcher routine 

MOV R4, XMVBAS ; Save address beyond end of routine 

Finished 

MOV (SP)+, R4 
RETURN 



c 

I 

f 



i 
i 
< 
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€ 
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f 
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i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



.IF NE, PR0ASi*5 

. SBTTL PIDVEN -- Make device table entry for PI device 

■ If uiB are running on a Professional computerj PIDVEN is called to 
i make an entry in the device tables for the PI device. 



PIDVEN: MOV 



Rl, -(SP) 



Increase number of defined devices and get device table entry index 
to use for the PI device. 



ADD 

MOV 



#2, NUMDEV 
NUMDEV, R 1 



; One more device 

j wet device table index 



Set up information about the PI device 



MOV 
MOV 
CLR 
CLR 
MOV 
MOV 

F i n j fi h f» rt 



#R50PI,PNAME<R1) ; Set device name 

#<DS*SFN1DI*PI>» DVSTAKRl ) > Set device status flags 

DVFLAG<R1) i Clear other flags 

DEVSIZ(Rl) iClear device size 

#PIHAN+6, HANENKRl )i Set handler entry point <4th word) 

#PROSIZ, HANSIZ<R1 ) i Set handler size 



. ENDC 



MOV 

RETURN 

i HE, PROASM 



(SP)+, Rl 



i 
i 
f 



i 

i 

i 

i 

c 

t 

i 
i 
I 
4 
i 
I 
C 

c 

i 
i 



I i 



' i 



i 



c 
f 

c 
\ i 
f 
I 
I 
i 

i 

i 
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005234 
005236 
005240 
005242 
005244 



14 
15 

16 005246 

17 005252 

18 005256 

19 005264 

20 005266 

21 005274 

22 005276 

23 005304 
24 

25 
26 

27 005306 

28 005312 

29 005316 

30 005322 

31 005324 

32 005326 

33 005330 

34 005332 

35 005334 

36 005336 

37 005340 

38 005342 
39 

40 
41 

42 005344 

43 005350 

44 005354 
45 

46 
47 

48 005356 

49 005362 

50 005364 

51 005372 

52 005374 

53 005402 

54 005404 

55 005410 

56 005412 

57 005416 



010146 
010246 
010346 
010446 
010546 



012701 
012704 
032761 
001027 
032761 
001423 
026127 
001017 



016105 
012702 
012703 
010100 
006300 
160002 
060100 
060003 
010225 
010425 
010325 
010425 



062701 
020127 
101740 



012701 
001423 
026127 
001412 
026127 
001003 
004737 
000405 
004737 
000402 



.IF NE, <PROASM-i:> > If assembling for PDP-ii 
. SBTTL LININI — Initialize time-sharing lines 



LININI is called to initialize the time-sharing lines. 

This consists of setting up interrupt vectors and setting control 

flags in the status registers. 



LININI: 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -(SP) 
R4, -{SP) 
R5, -<SP) 



Set up interrupt vectors for- DLll lines 



000002 
000340 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



1*; 



MOV 
MOV 
BIT 
BNE 
BIT 
BEQ 
CMP 
BNE 

DL-11 line 



OOOOOOG 
OOOOOOG 
177772G 



#2/ Rl i Index for Ist line 

#340, R4 > Priority 7 PS 

#*DEAD> LSW3(R1) ils this line uninstalled? 

8$ i Br if yes 

#«HARD, LSW3<R1) ils this line connected to hardware? 

8* ; Br if not 

LCDTYP<R.l ), #CDX*DL ;Is this a DLll line? 

8* ; Br if not 



GET ADDRESS OF INPUT VECTOR 

END OF RECEIVING VECTOR 

START OF INPUT INTERRUPT ENTRY POINTS 

GET LINE NUMBER 

4 BYTES PER INPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF INPUT INTERRUPT ENTRY POINT 

6 BYTES PER OUTPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF OUTPUT INTERRUPT ENTRY POINT 

SET PC FOR INPUT INTERRUPT ENTRY POINT 

SET PS FOR INPUT INTERRUPT 

SET PC FOR OUTPUT INTERRUPT 

SET PS FOR OUTPUT INTERRUPT 



MOV 


INVEG<R1.>, R5 


MOV 


#INRECV, R2 


MOV 


#<0TRECV-6>, R3 


MOV 


R1,R0 


ASL 


RO 


SUB 


R0iR2 


ADD 


R1,R0 


ADD 


R0iR3 


MOV 


R2, <R5) + 


MOV 


R4, <R5) + 


MOV 


R3, (R5) + 


MOV 


R4, <R5) + 



000002 
OOOOOOG 



Sf : 



Try next line 

ADD 
CMP 
BLOS 



#2, Rl 

R 1 , #LSTHL 

1* 



ADVANCE LINE INDEX NUMBER 
MORE TO DO? 
BR IF YES 



OOOOOOG 
OOOOOOG 
OOOOOOG 
006154' 
006104' 



OOOOOOG 
OOOOOOG 



i Initialize multiplexers. 

i 

SETMUX 
3«: 



>«: 



MOV 

BEQ 

CMP 

BEQ 

CMP 

BNE 

CALL 

BR 

CALL 

BR 



J Get last mux index # 

i Br if there are no mux lines 

this a DZll, DHll, or DHVll? 



#LSTMX, Rl 

SETLIN 

MXTYPE(R1),#CDX*DZ ;I5 

1* i Br if DZll 

MXTYPE(R1),#CDX*VH J Is this a DHVli? 

2* ; Br if not 

VHINIT j Initialize a DHVll 

4* 

DHINIT ; Initialize a DHl 1 

4* 



< 
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I 
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i 
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t 
i 
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82 

83 

84 
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005420 
005424 
005430 



005432 
005436 
005444 
005446 
005454 
005456 
005464 
005466 
005474 
005500 
005504 
005506 
005512 
005514 
005520 



005522 
005526 



005530 
005534 



005536 
005542 
005546 
005552 



005554 
005560 
005562 
005564 
005570 
005572 
005576 
005600 



005604 
005610 



004737 
162701 
001355 



012701 
032761 
001057 
032761 
001453 
032761 
001403 
052761 
016105 
016100 
001423 
020527 
001411 
020527 
001403 



004737 
000426 



004737 
000423 



016102 
052702 
010270 
000414 



016102 
011203 
005012 
016102 
011203 
016102 
005012 
012712 



162701 
003312 



UU3/ 1^ 



4*: 



LAL-L. 

SUB 

BNE 



DZINIT 
#2, Rl 
3* 



■> xmxiBxize a ujlj 
i iiore to enable? 
; Br if yes 



Enable all lines 



0000000 SETLIN: 

OOOOOOG OOOOOOG 4«: 

0000000 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 3*: 

OOOOOOG 

OOOOOOG 

OOOOOOG 



005626 ' 



005664 ' 



OOOOOOG 

017030 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000002 



MOV 
BIT 
BNE 

n T -r 
JL> 4. i 

BEQ 
BIT 
BEQ 
BIS 
MOV 
MOV 
BEQ 
CMP 
BEQ 
CMP 
BEQ 



DH It line 

CALL 
BR 

DHVil line 

7*; CALL 
BR 

DZ-11 line 

6*: MOV 
BIS 
MOV 
BR 

DL-11 line 

1*: MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
MOV 

i 

i Do next line 

2$: SUB 
BGT 

Finished 



#LSTHL, Rl 

#*DEAD, LSW3<R1) 

2* 

#*HARD, L3W3<R1) 

2* 

#*PHONE, ILSW2<R1 

3* 

#*NOIN, LSW3<R1) 

LCDTYP<R1>, R5 

LMXNUM(Rl), RO 

1* 

R5, #CDX*DZ 

6* 

R5, #CDX*VH 

7* 



DHLPRM 
2* 



VHLPRM 
2* 



LMXLN<Ri), R2 
#017030, R2 
R2, eMXLPR(RO) 
2* 



TSR(R1),R2 
<R2),R3 
(R2) 

RBR<R1 ). R2 
(R2),R3 
RSR(R1),R2 
<R2) 
#RDINT, (R2) 



#2, Rl 
4* 



INDEX # OF LAST REAL LINE 
IS THIS LINE INSTALLED? 
BR IF NOT 

Is this line connected to hardware' 
Br if not 
)iIS THIS A DIAL-UP LINE? 
n ±r tvu I 
IGNORE INPUT TILL DIAL UP OCCURS 
Get comm device type code 
IS THIS A DL-11 OR MUX LINE? 
BR IF DL-11 

Is this a DZll or DHll? 
Br if DZll 

Is this a DHll or DHVll? 
Br if DHVll 



; Set line parameters for DHll line 



i Set line parameters for DHVll line 



; Get line # within mux group 
i Set line enable flags 
i Enable the line 



; ADDRESS OF TRANSMITTER STATUS REGISTER 
; CLEAR TRANSMITTER STATUS REGISTER 

ADDRESS OF RECEIVER BUFFER REGISTER 
CLEAR RECEIVER BUFFER REGISTER 
ADDRESS OF RECEIVER STATUS REGISTER 

i ENABLE RECEIVER INTERRUPTS 
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115 


005612 


012605 


116 


005614 


012604 


117 


005616 


012603 


118 


005620 


012602 


119 


005622 


012601 


120 


005624 


000207 



MOV 


<SP)+, 


R5 


MQV 


<SP)+, 


R4 


MOV 


<SP)+, 


R3 


MOV 


<SP)+, 


R2 


MOV 


(SP)+, 


Rl 


RETURN 







I 
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i 
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005626 



005626 016100 0000000 

005636 001411 

005640 142770 0000000 OOOOOOG 

005646 156170 OOOOOOG OOOOOOG 

005654 012770 OOOOOOG OOOOOOG 



. 3E7TL DHLPRM — Set line parameters for a DHii iirse 

DHLPRM is called to set up the line parameters for a DHll line. 

Inputs: 
Rl = Physical line index number, 

DHLPRM: 

Enable DM11 for this line 



005662 



000207 



MOV 

TST 

BEQ 

BICB 

BISB 

MOV 

Finished 

;*: RETURN 



LMXNUM<R1), RO 

DM*CSR<RO) 

2* 



i Get mux index number 

»Does this DHll have DM11 modem control?' 

; Br if not 

#MF*LIN, @DM*CSR<RO) i Clear line # field in DM11 CSR 
LMXLN<R1), eDM«CSR(RO); Select line of interest 
#MF*LE,@DM*LSR<RO)i Enable the line 
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J. 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



. c:ji3 I I L- v'rii«.fKri 






1^1 IV 1 1 A i 1*1 c 



005664 



005664 016100 OOOOOOG 

005670 042770 OOOOOOG OOOOOOG 

005676 156170 OOOOOOG OOOOOOG 

005704 012770 OOOOOOG OOOOOOG 



Set the line parameter values for a DHVll line. 

Inputs: 
Rl = Physical line index number. 

VHLPRM: 

Enable the line 



005712 000207 



MOV 
BIC 
BISB 
MOV 

F i II i & h e d 

RETURN 



LMXNUM<R1 )i RO i Get mux index number 
#VF*LIN, €VH*CSR(RO) i Clear line # field 
LMXLN<R1). @VH«CSR(RO.> ; Set our line # 
#<VF*RE>. @VH*LCR(RO) ; Enable the line 



in mux CSR 



f 



TSINIT 
DZINIT 
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Initialize a D211 multiplexer 

. SBTTL DZINIT — initialize a D2ii multipiexer 

DZINIT is called to initialize a DZll multiplexer. 

Inputs: 
Rl = Mux index number. 

DZINI7: 

See if this DZll is installed 



005714 



005714 005761 0000000 
005720 001416 



005722 004737 005760 ' 



TST 
BEQ 



MXCSR(Rl) 
4* 



; Is this DZ-11 installed? 
j Br if not 



; Set up interrupt vector connections for this MUX 

CALL MUXVEC # Set up interrupt vectors for this DZll 

i Start up the mux operation 



005726 052771 0000000 OOOOOOG BIS 

005734 032771 OOOOOOG OOOOOOG 1*: BIT 

005742 001374 BNE 

005744 017100 OOOOOOG 2*: MOV 

005750 100775 BMI 

005752 105071 OOOOOOG CLRB 



#ZCLR, eMXCSR<Rl )i Do master clear on DZ-11 

#ZCLR, eMXCSR<Rl )i Wait for clear to finish 

1* 

@MXRBUF(H1 ), HO ; Clear silo 

2$ 

@MXDTR(R1) iDisable all data sets 



005756 000207 



Finished 
4*: RETURN 



f 
f 
f 
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005760 
005762 
005764 



005766 
005772 
005776 
006002 
006004 
006006 
006010 
006012 
006014 
006016 
006022 
006024 



006030 
006034 
006040 
006046 
006050 
006054 
006062 
006064 
006070 
006072 



006074 
006076 
006100 
006102 



010246 
010346 
010546 



016105 
012702 
012703 
010100 
006300 
160002 
060100 
060003 
010225 
012725 
010325 
012715 



012723 
012700 
026127 
001410 
012700 
026127 
001402 
012700 
010023 
010113 



012605 
012603 
012602 
000207 



. SBTTL HUXVEC — Set up interrupt vectors for a multiplexer 

MUXVEC is called to set up the interrupt vector connections for 
a D211, DHll, or DHVll multiplexer. 

Inputs: 
Rl = Mux index number. 



OOOOOOG 
OOOOOOG 

177772G 



000340 
000340 



MUXVEC: 


MOV 


R2, -(SP> 




MOV 


R3, ~(SP) 




MOV 


R5, -(SP) 


; Set 


inter 


rupt vector for 




MOV 


MXVEC<R1>,R5 




MOV 


#INMXV, R2 




MOV 


#<0TMXV"6>, R 




MOV 


Rl.RO 




ASL 


RO 




SUB 


RO, R2 




ADD 


R1,R0 




ADD 


RO, R3 




MOV 


R2, (R5>+- 




MOV 


#340, (R5) + 




MOV 


R3, <R5) + 




MOV 


#340> <R5) 



itiU 3< 

Get address of input interrupt vector 

End of receiving vector 

Output interrupt table 

Get mux index number 

4 bytes per line in input int table 

Get address of input entry point 

6 bytes per mux in output entry point table 

Get address of output int entry point 

Set PC for input interrupt 

Set PS for output interrupt 

Set PC for output interrupt 

Set PS for output interrupt 

Now store an instruction sequence of the form: 

JSR R5, @#interrupt„.routine 
. WORD mux_index 

to catch mux output interrupts and vector them to the interrupt routine. 



004537 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



1$: 



MOV 
MOV 
CMP 
BEQ 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 

Finished 



#004537, <R3)+ > JSR R5, e#x 
#DZOINT, RO j Assume this is a DZll 
MXTYPE<R1),#CDX*DZ ils this a DZll? 

Br if yes 

Assume this is a DHVll 
Is this a DHVll? 
i Br if yes 

i Get interrupt routine for DHll's 
J Store address of interrupt routine 
; Store mux index number 



1* 

#VHOINT, RO 

MXTYPE(R1),#CDX*VH 

1* 

#DHOINT, RO 

RO, (R3) + 

Rl, (R3) 



9*: 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
(SP)+, R3 
<SP)+, R2 



I 
I 



TSINIT 
DHINIT 



X 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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— Initialize a DHll multiplexer 

. SBTTL DHINIT — Initialize a DHll multiplexer 

DHINIT is called to initialize a DHll multiplexer 

Inputs: 
Rl = Mux index number 

DHINIT: 

See if this DHll is installed 



006104 



006104 005761 OOOOOOG 
006110 001420 



006112 004737 005760' 



TST MH*SCR(R1) 

BEG 9* 



; Is this DHll installed? 
> Be if not 



• Connect interrupt vector to DHll 

CALL MUXVEC i Set up interrupt vectors for DHll 

i 

i Clear the multiplexer 



006116 012771 OOOOOOG OOOOOOG 
006124 032771 OOOOOOG OOOOOOG 1*: 
006132 001374 



006134 016100 OOOOOOG 

006140 001404 

006142 012710 OOOOOOG 

006146 052710 OOOOOOG 

006152 



MOV #HF*MC, eMH*SCR<Rl) > Set the master-clear flag 

BIT #HF*MC, <»MH*SCR<R1) J Wait for the master clear to be completed 

BNE 1* 



Clear the DM11 scanner 



006152 

006152 000207 



3*: 



9*: 



MOV 


DM*GSR<R1).R0 


BEQ 


3* 


MOV 


#MF*CS, (RO) 


BIS 


#MF*CM> <R0) 


Finished 




RETURN 





Is there an associated DM11? 

Br if not 

Clear the scanner 

Clear the multiplexer 



I 

i 
f 
i 
i 

I 
i 

< 



C 

i 
i 

i 
i 

i 



TSINIT 
VHINIT 



3 

4 

5 

£> 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

IS. %J 

26 
27 
28 
29 
30 
31 
32 
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-- Initialize a DHVll multiplexer 

Perform initialization for a DHVll mux. 

Inputs: 
Rl = Mux index number. 

VHINIT: 

See if this DHVll is installed 



006154 



006154 005761 OOOOOOG 
006160 00±41-T 



006162 004737 005760' 



TST VH«CSR<R1) 
BEQ 9« 



i Is this DHVll installed? 

> juT X i n Q "C 



« Connect interrupt vector to DHVl 1 

i 

CALL MUXVEC >Set up interrupt vectors 

i 

} Clear the multiplexer 



006166 012771 OOOOOOG OOOOOOG 
006174 032771 OOOOOOG OOOOOOG 1*: 
006202 001374 



MOV #VF*MR, @VH«CSR(R1) ; Reset the multiplexer 
BIT #VF*MH, @VH*C3R<R1) >Wait for reset to finish 
BNE 1* 



006204 017100 OOOOOOG 
006210 002775 



006212 000207 



Clean out the FIFO buffer in the mux 



2$: 



MOV 
BLT 



@MXRBUF(R1 ) .• RO .: Get contents of receiver buffer register 
2* i Loop until RBUF empty 



Finished 
9*: RETURN 



I 
f 



i 
( 
I 
t 

f 

i 

« 

I 

c 

f 

f 



i 

f 



TSINIT - 
VHINIT - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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Initialize a DHVll multiplexer 



End of code that can be omitted for Pro-only systems 
IFF J NE, <PR0ASM~1> /Begin code for Pro only 



This code is assembled only for Pro systems. 
T/S line init routines for Pro only. 



LIWCHK 
DHLPRM 
VHLPRM 
DZINIT 
MUXVEC 
DHINIT 
VHINIT 



RETURN 
LININI routine for Pro liy&tems 



LININ.(: MOV 
MOV 



R 1 , - ( SP ) 
#LSTLIN, Rl 



; Get # of last line 

Determine if this line is connected to hardware 

i*: CALL LINTYP > Determine the type of this line 

BIT #*HARD, LSW3(R1) ils this line connected to hardware? 
BEQ 2* ; Br if not 

Call Pro line initialization routine 

CALL PROLIN ; Initialize Pro line 

Do some special init for phone lines 

BIT #*PHONE. ILSW2<Rl)i Is this a dialup line? 

BEO 2* iBr if not 

BIS #*NOIN, LSW3<R1) i Ignore input till dial up occurs 

Check next line 



?*: 



SUB 


#2, Rl 


BGT 


1* 


Finished 




MOV 


(SP>+, Rl 


RETURN 





; Oet index # of next line 
/Loop if more lines to do 



End of Pro-only code 

. ENDC ; NE, <PR0ASM~1> 



c 
c 
c 
I 

I 
f 
< 
i 
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i 
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t 
i 



) r 



f 



I 



c 

I c 
t 

I 

i 



TSINIT — TSX startup initializ MACRO V05. 05 
LINTYP — Determine the type of a line 
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X 

2 
3 
4 
5 
6 
7 
8 
9 006214 

10 006220 

11 006222 

12 006226 

13 006230 

14 006236 
15 

16 
17 

15 006240 

19 006244 

20 006250 

21 006256 

22 006264 
23 

24 

26 006266 

27 006274 

28 006302 

29 006310 

30 006316 
31 

32 
33 
34 006324 



020127 
101422 
020127 
103004 
012761 
000432 



016100 
010160 
012761 
012761 
OO0414 



012761 
012761 
012761 
012761 
052761 



000207 



3BTTL LINTYP 



Determine the type of a line 



LINTYP is called to determine if the current line is a time-sharing line 
a CL line> or a non-hardware connected line. 



Inputs: 
Rl = Line index number 



OOOOOOG 
OOOOOOG 



LINTYP: CMP 
BLOS 
CMP 
BHIS 
MOV 
BR 



R 1 , #LSTPL 

1* 

Rl, #FSTIOL 

2* 

#-l>LCLUNT<Ri) 

9* 



; Is this a time-sharing line? 

i Br if yes 

j Is this a CL line?" 

i Br if yes 

iSay line not m use as a CL line 



I 

f 

i 



This is a CL line 



OOOOOOG 
0000000 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



J*: 



MOV 
MOV 
MOV 
MOV 
BR 



LCLUNT<R1), RO 
Rl, CL*LIX(RO) 



; Get the CL unit index number 
; Say which line is assoc with this CL unit 
#CLOTIR, LOUTIRtRl) ; Set terminal output interrupt routine 
#CLINCP, LINIR<R1 ) ; Set terminal input interrupt routine 



This is a time-sharina line 



177777 
177777 



OOOOOOG 
OOOOOOG 



i*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG S*: 



9*: 



MOV 
MOV 
MOV 
MOV 
BIS 

Finished 



#-1, LCLUNT<R1 ) ; Say line is not in use as a CL unit 
#-l;LXCL(Rl) j Line is not cross-connected to CL unit 
#NEDCHR, L0UTIR<R1) ; Set terminal output interrupt routine 
#TTINCP> LINIR<R1 > i Set terminal input interrupt routine 
#*HARD, LSW3(R1 ) J This line is connected to hardware 



RETURN 



I 

c 
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■» ^ * Initialization done with RT-11 running # * # 



1 

2 

3 

4 

5 

6 

7 

8 006326 

9 
10 
11 
12 006326 013737 000004 000044' 

14 006342 013737 OOOOOOG 000042' 

15 

16 

17 

18 

19 006350 

20 

21 

22 

23 006370 

24 

26 

27 006410 012700 OOOOOOG 

28 006414 162700 037776 

29 006420 003422 

30 006422 010046 

31 006424 

32 006432 

33 006440 

34 006446 012600 

35 006450 004737 027754' 

36 006454 

37 006462 000137 004102' 
38 

39 
40 

41 006466 012701 OOOOOOG 

42 006472 012700 123456 

43 006476 010021 

44 006500 020127 OOOOOOG 

45 006504 103774 

46 006506 010106 
47 

48 
49 

50 006510 

51 006516 012700 000176' 

52 006522 104375 

53 006524 103410 

54 006526 

55 006534 

56 006542 000137 004102' 

57 006546 



. SBTTL * * * Initialization done uiith RT-ll running « # * 

Initialization at start of execution of TSX. 

The initialization done in this section uses the running RT-11 system 
to perform functions for it. 

INITGO: 

Save some RT-11 pointers in case ute abort the initialization 

MOV @#4. RTTRP4 ; Save trap 4 vector 

MOV @#RMON* RTMNVC jRT—ll monitor pointer 

MOV e#CLKVEC, CLKIOO i Clock vector (defined in TSGEN at 100) 

Get the current time of day which we will use later to make sure 
the line time clock is working. 

. GTIM #AREA, #SYTIMH i Get the current time of day 

Trap -^C for later test so we can restore clock vector 

BCCA #AREA. #CCAFl.G ; Catch control-C 

Check for TSGEN size overflow 



MOV #GENTOP, RO 

SUB #<40000--2>, RO 

BLE 15* 

MOV RO, ~<SP) 

. PRINT #TSXHD 

.PRINT #TOOBIG 

.PRINT #REDUCE 

MOV <SP)+, RO 

CALL PRTDEC 

.PRINT #BYTES 

JMP INISTP 



Initialize the system stack (below 1000) 



■> Get top of TSGEN 

iWill TSKMON have problems? 

; Continue i f not 

i Save overflow size 

; Print error message 



; Recover amount of overflow 



15*: MOV #SSEND, Rl 

MOV #123456, RO 

13*: MOV RO, (Rl)+ 

CMP R1,#SS 

BLO 13* 

MOV R 1 , SP 



> Point to bottom of stack 

; Get initialization value 

; Initialize the stack 

; Reached top of the stack area? 

i Loop if not 

i Run on system stack 



Make sure we are not already running under TSX. 



1*: 



. SERR 

MOV #GTLIN, RO 

EMT 375 

BCS 1* 

.PRINT #TSXHD 

. PRINT #TSXRUN 

JMP INISTP 
. HERR 



DON'T DIE ON ERRORS 

TSX EMT TO GET LINE NUMBER 

TRY A TSX EMT 

BR IF NOT UNDER TSX 

ALREADY UNDER TSX 



i RENABLE FATAL ERRORS 



I 

r 
f 
f 
t 
I 
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f 
< 
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I 

i 
i 
( 

i 

I 

( 



f 

\ € 
€ 



TSINIT — TSX startup initializ MACRO V05. 05 Tuesday 17-Jan-S9 13:55 Page 25-1 
■«•*•* Initialization done with RT-il running * *■ * 



58 
59 
60 

61 006554 

62 006574 

63 006600 
64 

65 
66 

67 006616 

68 006624 

69 006630 

70 006634 

71 006636 

72 006642 
73 

74 
75 
76 

77 006646 

78 006652 

79 006672 

80 006674 

81 006700 
82 

S3 
84 

85 006702 

86 006710 

87 006712 

88 006720 

89 006722 
90 

91 
92 
93 

94 006726 
95 
96 
97 
98 
99 
100 

101 006726 

102 006732 

103 006736 

104 006742 

105 006746 

106 006750 
107 

108 
109 
110 
111 
112 

113 006754 

114 006760 



Make sure this machine has memory management facilities. 



005737 OOOOOOG 



. TRPSET #AREA, #NOXM 
TST @#SROMMR 
. TRPSET #AREA> #0 



CATCH TRAPS 

TRY TO ACCESS MEMORY MANAGEMENT REGISTER 

Release trap control 



Request all available memory from RT-11. 



010037 
020027 
101402 
012700 
010037 



000132' 
OOOOOOG 

OOOOOOG 
000236 ' 



3*: 



. SETTOP #-2 

MOV RO, TOPMEM 

CMP RO, #VPAR5 

BLOS 3« 

MOV #VPAR5, RO 

MOV RO, MEMLIM 



REQUEST ALL AVAILABLE MEMORY 

REMEMBER WHERE TOP OF MEMORY IS 

TSX CANNOT EXTEND ABOVE PAR5 BASE ADDRESS 

BR IF RT-il IS BELOW THAT 

SET PARS BASE AS UPPER LIMIT ON TSX SIZE 

TSX MAY NOT EXCEED THIS UPPER LIMIT 



Lock USR in memory for speed 

(Set USR to swap over TSEMT to get out of the may) 



012705 177776 



160005 
010537 



000046 



MOV 
. GVAL 
SUB 
MOV 
. LOCK 



#TSINIT~2, R5 
#AREA, #374 
RO, R5 
R5, @#46 



GET THE BASE OF TSINIT 

GET SIZE OF RT-11 USR MODULE 

ALLOCATE SPACE BELOW TSINIT FOR USR 

SET USR TO SWAP OVER TSEMT 

LOCK USR IN MEMORY 



Determine if me are to run system with the system debugger 



032737 
001406 
023727 
001002 
005237 



OOOOOOG OOOOOOG 
000510 057164 
000034 ' 



BIT #CHAIN, @#JSWLOC 

BEQ 10* 

CMP @#510, #R500DT 

BNE 10* 

INC ODTFLG 



WERE WE CHAINED TO? 

BR IF NOT 

SHOULD WE RUN UNDER ODT? 

BR IF NOT 

SET FLAG SAYING DEBUGGER WANTED 



Call Pro TSX initialization only if assembling for the Pro 
Jump to INISTP if checking fails. 



10*: 
. IF 



NE, PROCID 
CALL INSCHK 
iNE, PROCID 



i ** Do if assembling for pro only *# 

i PERFORM VERIFICATION AND DECRYPTION FOR PRO 



012705 
004737 
004737 
020527 
103002 
012705 



000000 ' 
013060' 
013524' 
006326 ' 

006326 ' 



ENDC 

Allocate non-initialized buffer space over TSINIT. 

j Allocate buffer space over TSINIT 

; Do al location 

iAllocate silo buffers for lines 

i Are u»e beyond code that takes over control? 

; Br if yes 

iAdvance up to initial code 

Allocate the interrupt stack over TSINIT 

If we are running on a Pro> allocate buffer for the PI handler 

initialisation code over the interrupt stack area. 



MOV 


#TSINIT, R5 


CALL 


ALOCBF 


CALL 


ALCSLO 


CMP 


R5, #INITGO 


BHIS 


t2* 


MOV 


#INITGO, R5 



001274 
010537 
062705 



OOOOOOG 
000002 



PIINSZ 
12*: 



MOV 
ADD 



700. 

R5, INTSND 

#2, R5 



> Space needed for PI init code 

; Ptr to base of interrupt stack 

i Always leave last word of stack for flag val 



€ 
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OOOOOOS 
OOOOOOG 000370 



115 006764 013701 

116 006770 032761 

117 006776 001407 

118 007000 105237 OOOOOOG 

119 007004 010537 000150' 

120 007010 062705 001274 

121 007014 000402 

122 007016 062705 OOOOOOG 11*: 

123 007022 010537 OOOOOOG 14*: 
124 
125 
126 

127 007026 004737 023372' 
128 
129 
130 
131 

132 007032 020527 030074' 

133 007036 103002 

134 007040 012705 030074' 
135 
136 
137 

138 007044 004737 010340' 
139 
140 
141 

142 007050 004737 010374' 
143 
144 
145 
146 

147 007054 005737 000034' 

148 007060 001402 

149 007062 004737 026314' 
150 
151 
152 
153 
154 

155 007066 004737 016436' 
156 
157 
158 

159 007072 013701 OOOOOOG 

160 007076 016102 000300 

161 007102 042702 OOOOOOC 

162 007106 052702 OOOOOOC 

163 007112 010237 OOOOOOG 
164 

165 007116 016137 000370 OOOOOOG 

166 007124 052737 OOOOOOG OOOOOOG 

167 007132 123727 OOOOOOG OOOOOOG 

168 007140 001003 

169 007142 052737 OOOOOOG OOOOOOG 
170 
171 007150 016102 000372 25* 



nov 

BIT 

BEQ 

INCB 

MOV 

ADD 

BR 

ADD 

MOV 



e#RMON, Rl i Get pointer to Kl-11 RMON base 
#CW*PRO. 370(R1 ) ; Are tue running on a PRO? 



11* 

PROFLG 

R5, PROBUF 

#PIINSZ,R5 

14* 

#INTSSZ,R5 

R5, INTSTK 



j Br if not 

i Set flag saying this is a PRO-350 

; Save pointer to buffer area 

i Allocate space for buffer 

i Allocate space for interrupt stack 
; Address of top of interrupt stack 



CMP 


R5.. #INITOP 


BHI3 


4* 


MOV 


#INIT0P,R5 



Allocate space for those overlays that go over TSINIT 

CALL OvLPOS i Determine how much space to alloc for overlay 

Note: from this point onujard lue are carrying the address of the 
base of the free memory area in R5. 

i Have we allocated up to top of TSINIT? 

i Br if yes 

; Advance to top of TSINIT 

Allocate a 2048. byte work buffer 

4*: CALL ALCWRK i Allocate work buffer 

; Allocate empty Region Control Blocks for use by handlers 

CALL ALCHRB 

i If we were started in debug mode» load ODT. 

i 

> Don't allow ODT for production PRO version 

i Are we to load system debugger? 

; Br if not 

i Load ODT and start it 

Initialize memory management registers for 1-to-l mapping but 
leave memory management turned off 

2*: CALL MEMINI ; Initialize memory management 

Extract information from RT-11 configuration and sysgen words. 

MOV e#RMON, Rl /GET POINTER TO BASE OF RMON 
MOV 300(R1),R2 i GET RT-11 CONFIGURATION WORD 
BIC #CW*ODH+CW*BTH+CW*LGS, R2 i RESET A FEW FLAGS 
BIS #CW*FB+CW*FGvi+CW*USR+CW*XM, R2 ; SET A FEW FLAGS 
MOV R2, CONFIG i INITIALIZE OUR CONFIGURATION WORD 
Now get extended conf igutation word. 



. IF 


EQ, PROCID 


TST 


ODTFLG 


BEQ 


2* 


CALL 


GETODT 


. ENDC 


jEQ, PROCID 



MOV 370 < R 1 ) , C0NFG2 

BIS #CW*ESP, C0NFG2 

CMPB VBUSTP. #QBUS 

BNE 25* 

BIS #CW*QBS. C0NFG2 



EXTENDED CONFIGURATION WORD 
SET EXIT NO SWAP FLAG 
Is this a Q-bus machineT' 
Br if not 
Set QBUS flag 






i 
f 

f 
« 
i 



And sysgen option word. 
MOV 372(R1),R2 



f 

4 

C 
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173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 

■t o/r 

185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 



223 
224 
225 
226 
227 
228 



007154 
007160 
007164 



007170 
007174 
007176 
007204 
007224 



007230 
007234 
007240 
007242 
007244 
007250 
007252 
007254 
007260 
007264 



007266 
007274 



007276 
007304 



007306 
007314 
007322 



007324 
007330 
007332 



007336 
007342 
007344 
007350 
007356 



052702 
010237 



012702 
120062 
001005 
000300 
120062 
001425 
000300 
062702 



103763 



023727 
103404 



012737 
000414 



1 1 3737 
1 1 3737 
000405 



v/vv/wws-# 

ooooooc 

OOOOOOG 



Tuesda 


y 


* K- -K- 




BIG 




BIS 




MOV 
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»!3W*tLw+-i3U*rH«-»-i3tr*r1Ta» nen 

#SG*MMLI+SG*MTM+SG*IOT+SG*TSX, R2 

R2, SYSGEN ; INITIALIZE OUR SYSGEN WORD 

If a system version number was specified* use it. 

Else, get version number from RT-ll, but limit to default. 



013700 OOOOOOG 

001015 

012737 000314' 000156 

010037 OOOOOOG 



020237 
103366 
010237 



105737 
001005 
013702 
116237 
105737 



MOV SYSVER, RO 

BNE 30* 

MOV #RTVDEF, RTVPTR 

. GVAL #AREA, #276 

MOV RO, SYSVER 



Has user specified version to emulate? 

If so, keep SYSVER 

If using RT version, set cutoff 

GET RT-11 SYSTEM VERSION NUMBER 

SET AS TSX-PLUS VERSION NUMBER 



Noui scan the known version number table and try to locate 
RO contains version # in low byte, udpate # in high byte 



a match. 



000264 ' 
000000 



000001 



000003 
000322 ' 



MOV 


#RTVER, R2 


CMPB 


RO, RT«VER(R2) 


BNE 


32* 


SWAB 


RO 


CMPB 


RO, RT*UPD<R2) 


BE<i 


34* 


SWAB 


RO 


ADD 


#RTV*S2, R2 


CMP 


R2, #RTVEND 


BLO 


31* 



000156' 000322 



000317' 000156 



000314 
000315 



OOOOOOG 
OOOOOOG 



30*; MOV #RTVER,R2 i Get ptr to first entry in table 
31*; CMPB RO, RT*VER(R2) ; Does main version match? 

Br if not 

Main version matches, get update to low byte 

Does the update match also? 

Its a match) Use this entry 

Get SYSVER back to low byte 
32*: ADD #RTV*S2, R2 i If not, step up to the next entry 

Past end of table? 

Keep checking if not 

Couldn't find version in tables. If we picked it up from RT, reset 
everything to the default. If it was user-specified, then keep 
SYSVER, but use last entry ptr. 

CMP RTVPTR, #RT VEND iWas a limit specified? (Got ver. from RT?) 

BLO 33* i Br if so 

i Unknown user-specified version, keep user-specified SYSVER, 
; but use ptr to last known version 

MOV #<RTVEND-RTV*SZ>, RTVPTR ; Use latest known defaults 

BR 36* 
i Got version from RT, but don't recognize it, reset SYSVER and use defaults 
i RTVPTR was already set to default RTVDEF when we got RT version 
33*: MOVE RTVDEF+RT* VER, SYSVER i Set SYSVER to default 

MOVB RTVDEF+RT*UPD, SYSUPD i and update 

BR 36* 

Version was identified in tables. RTVPTR contains limiting version ptr 
(RTVUEF if got vers from RT, RTVEND if user specified version) 



000156' 
000156' 

OOOOOOG 



34*; 



CMP 


R2, RTVPTR 


BHIS 


33* 


MOV 


R2, RTVPTR 



Is it past limit? 

If so, keep limit, and go limit SYSVER 

If not, use what we found 



Now set some information that depends on the emulated version number 



36*: 



000156' 

000002 OOOOOOG 

OOOOOOG 30*: 



TSTB CLVER3 J Use table value for CL version number? 

BNE 38* ; Br if not, use value supplied in TSGEN 

MOV RTVPTR, R2 ; Get ptr to version table 

MOVB CL*VER<R2),CLVERS ; Auto set CLVERS from version table 

TSTB LDVERS ; Auto-select LD translation table type? 
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229 


007362 


OOiOil 




BNE 


39« 


230 


007364 


112737 


000001 OOOOOOG 


MOVE 


#1,LDVERS 


231 


007372 


023727 


000156' 000314' 


CMP 


RTVPTR, #RT54 


232 


007400 


103402 




BLD 


39* 


233 


007402 


105237 


OOOOOOG 


INCB 


LDVERS 


234 


007406 




39*: 







; Br if not, use value supplied in TSGEN 

i Assume old translation table format 

i At or beyond 5.4? 

i Br if not, retain old format 

; LD translation table format chanaed at 5.4 
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007406 
007414 



007416 
007424 
007432 
007440 
007446 
007452 



007454 
007462 
007470 
007476 
007504 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 

27 007510 

28 007514 

29 007516 

30 007522 
31 

32 

33 

34 007526 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 007532 

48 007540 

49 007546 

50 007552 

51 007556 

52 007564 
53 

54 
55 

56 007570 

57 007576 



Set up a few clock constants based on clock frequency. 
See if we have a 50 or 60 Hz clock 



032737 
001017 



012737 
012737 
012737 
012737 
012700 
000416 



012737 
012737 
012737 
012737 
012700 



012702 
070200 
010237 
010337 



OOOOOOC OOOOOOG 



000074 
000036 
000264 
000006 
001130 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



INICLK: BIT 
BNE 

60 Hz clock 

MOV 
MOV 
MOV 
MOV 
MOV 
IJR 

50 Hz clock 



000062 
000031 
000226 
000005 
000764 



020700 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



2*: 



MOV 
MOV 
MOV 
MOV 
MOV 



#CW*50H> CONFIG 
2* 



#60, > TKISEC 
#30. , TK5VAL 
#180. . TK3SVL 
#6. , TKIVAL 
#600. , RO 
8* 



#50. , TKISEC 
#25. , TK5VAL 
#150. . TK3SVL 
#5. , TKIVAL 
#500. .. RO 



50 or 60 Hz clock? 
Br if 50 Hz 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Set number of clock ticks pur day 



8*: 



MOV 
MUL 
MOV 
MOV 



#8640. I R2 
RO, R2 
R2> DATIMH 
R3, DATIML 



i (# seconds per day) ./ 10. 
i Get # clock ticks per day 
; High-order value 
; Low-order value 



004737 010450' 



Do a fast check to make sure specified T/S line addresses are ok. 
CKLIN: CALL LINCHK j CHECK T/S LINE ADDRESSES 

Do PRD~350 system initialization 



. IF 



. ENDC 



012737 
012737 
005037 
005037 
012737 
005037 



012737 
105737 



100040 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 OOOOOOG 

OOOOOOG 



177777 OOOOOOG 
OOOOOOG 



NE, PROASM 

BIT #CW$PRO. C0NFG2 i Are we running on a PRO-350? 

BEQ INIDEV i Br if not 

CALL PROINI i Do PRO-350 initialization 

MOV #PIDRIV, PIDPTR i Set up pointer to clock driven PI routine 

i HE. PROASM 



i PERMANENT NAME "TT" 

J SET DEVICE STATUS FLAGS FOR TT 



i Ma k e 


entry 


in device handl 


INIDEV: 


MOV 


#R50TT, PNAME 




MOV 


#DI*TT. DVSTAT 




CLR 


DVFLAG 




CLR 


DEVSI2 




MOV 


#2, HANENT 




CLR 


NUMDEV 



i SET UP HANENT SO HANDLER LOOKS RESIDENT 
i IT IS DEVICE # 



Make device table entry for LD (logical disk) device 



i 

i 
I 
{ 
I 



MOV #-l,LDDEVX 
TSTB VLDSYS 



i ASSUME LD SUPPORT NOT WANTED 
; IS LD SUPPORT GENNED IN? 



i 

i 
t 
t 
I 
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59 007604 062737 000002 OOOOOOG 

60 007612 013701 OOOOOOS 

61 007616 010137 OOOOOOG 

62 007622 012761 045640 OOOOOOG 

63 007630 012761 OOOOOOC OOOOOOG 

64 007636 012761 OOOOOOG OOOOOOG 

65 007644 005061 OOOOOOG 

66 007650 012761 000002 OOOOOOG 
67 
68 
69 

70 007656 005727 OOOOOOG 6*; 

71 007662 001402 

72 007664 004737 014652' 
73 
74 
75 

76 007670 012737 000002 000000 3$: 

77 007676 005037 OOOOOOG 

78 007702 032737 OOOOOOG OOOOOOG 

79 007710 001402 

80 007712 005037 000230 
81 
82 
83 

84 007716 004737 017642' 1 

85 
86 
87 

88 007722 004737 016542' 
89 
90 
91 

92 007726 004737 017172' 
93 
94 
95 

96 007732 004737 017730' 
97 
98 
99 

100 007736 010537 000122' 

101 007742 013701 000124' 

102 007746 006301 

103 007750 062701 OOOOOOG 

104 007754 070127 000032 

105 007760 060105 
106 
107 
108 

109 007762 004737 027324' 
110 
111 
112 

113 007766 004737 014350' 
114 



BEQ 6* j BR IF NOT 

ADD #2, NUMDEV i ONE MORE DEVICE 

MOV NUMDEV, Rl ; GET DEVICE TABLE INDEX 

MOV R1,LDDEVX ; REMEMBER INDEX NUMBER FOR LD DEVICE 

MOV #R50LD, PNAME(R1 ) ; SET DEVICE NAME ("LD") 

MOV #<DS*DIR+DS*SFN+DS«VSZ+DI*LD>, DVSTAT<Rl>i SET DEV STATUS FLAGS 

MOV #DX*EBA, DVFLAG(Rl)i Say buffers must be on even byte boundaries 

CLR DEVSIZ<R1) 

MOV #2. HANENT<R1) i SAY HANDLER IS RESIDENT 

Make device table entry for CL (communications line) device 



TST 


wCLTOTL 


BE(]! 


8* 


CALL 


CLINIT 



Disable clock interrupts. 

MOV #2, @#0 

CLR e#CLKVEC 

BIT #CW*PRO, CONFGi 

Ht.Q 1* 

CLR <?'#230 



Are there any communications lines? 

Br if not 

Initialize CL handler 



LOAD RTI IN LOCATION 
ATTACH CLOCK INTERRUPT TO 
ARE WE RUNNING ON A PRO? 
BR IF NOT 
380 CLOCK INTERRUPT VECTOR 



Get up memory parity control 

CALL PARSET ; SET UP MEMORY PARITY CONTROL 

Determine how much memory is installed on machine 

CALL MEMTST ; FIND OUT HOW MUCH PHYSICAL MEMORY THERE IS 

Set up information about the size of the job context area 

CALL CXTALC {Determine size of job context area 

Load TSX~Plus device handlers that go in low memory 

CALL GETHNL i Load low memory handlers 

Reserve space for interrupt vector intercept routines for mapped handlers 



MOV R5, XMVBAS 

MOV NMXHAN, Rl 

ASL Ri 

ADD #NXIVMH, Rl 

MUL #MPIVSZ.. Rl 

ADD R1,R5 



; Save address of base of area for XM vectors 
; Get # mapped handlers 

; Reserve room for 2 interrupts per handler 
i Add # requested extra interrupt vectors 
iCalc space needed for interrupt entry code 
J Advance the address of free memory 



Set up device index number and unit number for "SY: " device. 

CALL SETSY i SET UP INFO ABOUT SY DEVICE 

Open channel to TSKMON and set up information about it. 

CALL OPNKMN ; OPEN CHANNEL TO TSKMON 
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115 








i 


116 








t 


117 


007772 


004737 


015316' 




118 








i 


119 








J 


120 








i 


121 


007776 


004737 


016060' 




122 








i 


123 








'f 


124 








> 


125 


010002 


013737 


OOOOOOG OOOOOOG 




126 








> 


127 








't 


128 








> 


129 


010010 


004737 


011730' 




130 








} 


131 








> 


132 








i 


133 


010014 


105737 


OOOOOOG 




134 


010020 


001402 






135 


010022 


004737 


010772' 




136 








> 


137 








i 


138 








i 


139 


010026 


00473/ 


011424' 


w! 


140 








i 


141 








i 


142 








> 


143 


010032 


004737 


023150' 




144 








> 


145 








i 


146 








i 


147 


010036 


010500 






148 


010040 


004737 


027630 ' 




149 










150 










151 










152 










153 


010044 


010537 


OOOOOOG 




154 


010050 


062705 


000077 




155 


010054 


072527 


177772 




156 


010060 


042705 


176000 




157 










158 










159 










160 


010064 


004737 


013744' 




161 










162 










163 










164 










165 


010070 


010504 






166 


010072 


010437 


000136' 




167 


010076 


013705 


000134' 




168 










169 










170 










171 


010102 


004737 


024002 ' 





CALL INDINI i INITIALIZE FOR IND PROGRAM 

Initialize the TSXUCL data file 

CALL UCLINI 
Set name of device that UCL program is to be run from 



MOV SYNAME* UCLNAM 

Initialize spooling system 

CALL SPLINI 
Open system swap file 



SET DEVICE NAME FOR UCL PROGRAM 



INITIALIZE SPOOLING SYSTEM 



TSTB 


VSWPFL 


13 EQ 


3* 


CALL 


OPNSWP 



IS JOB SWAPPING ALLOWED? 

BR IF NOT 

OPEN THE SYSTEM SWAP FILE 

Open sxstap file used for PLAS regions 

3*: CALL OPNRSF ;OpBn PLAS region swap file 

Set up information about which devices need to have their I/O mapped 

CALL SETMIO i Set up information about mapped I/O 

We are finished allocating low-memory buffer space. 



MOV 
CALL 



R5, RO 
CHKMEM 



; ENSURE WE DON'T OVERFLOW 40KB 
; ABORT IF > 40KB OR INTO RT-11 



From this point on carry the free memory address in R5 
as a 64-byte block # in physical memory. 



MOV R5, UMSYTP 

ADD #77, R5 

ASH #-6, R5 

BIC #176000>R5 



SAVE ADDRESS OF NON-EXTENDED SYSTEM TOP 
BOUND UP TO 64-BYTE BOUNDARY 
CONVERT TO 64-BYTE BLOCK # 
KILL SIGN EXTENSION 



Allocate buffer space that is not contrained to 40Kb TSX-Plus region. 

CALL ALBFX i ALLOCATE EXTENDED BUFFERS 

We will now do some allocation from the top of physical memory downward. 
Save the base of free memory in R4 and get the top of free memory to R5. 



MOV 
MOV 
MOV 



R5, R4 

R4, FMEMLO 

FMEMHI.R5 



Load any mapped system code 



CALL 



GETMAP 



; Save the base of free memory in R4 

i Save pointer above top of alloc low memory 

.; Get 64-byte block # of free high memory 



i LOAD USR. EMT. MSG, LOCK, SPOOL, etc. 
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Load any shared run— time systems 



173 
174 








175 


010106 


005727 


OOOOOOG 


176 


010112 


001415 




177 


010114 


012701 


OOOOOOG 


178 


010120 


010502 




179 


010122 


004737 


025464 ' 


ISO 


010126 


062701 


OOOOOOG 


ISl 


010132 


020127 


OOOOOOG 


182 


010136 


103771 




183 


010140 


160502 




184 


010142 


010237 


OOOOOOG 


185 


010146 






186 








187 








188 








189 








190 








191 








192 








193 








194 








195 








196 








197 








198 








199 








200 








201 


010146 


004737 


021244' 


202 








203 








204 








205 


010152 


004737 


026076 ' 


206 








207 








208 








209 








210 








211 


010156 


004737 


017332 •• 


212 








213 








214 








215 


010162 


004737 


017516' 


216 








217 








218 








219 


010166 


013702 


OOOOOOG 


220 


010172 






221 


010212 






222 


010220 


010037 


OOOOOOG 


223 


010224 


020237 


OOOOOOG 


224 


010230 


001010 




225 


010232 






226 


010240 






227 


010246 


000137 


004102 •■ 


228 









5«: 



TST 


#NUMRDB 


i3EQ 


4* 


MOV 


#RDB,R1 


MOV 


R5, R2 


CALL 


GETSRT 


ADD 


#RT**SZ>Ri 


CMP 


R 1 , #RDBEND 


BLO 


5* 


SUB 


R5, R2 


iiOV 


R2, SRTSI2 



4*: 
. IF 



Do me need to load anu shared run-times? 

Br if not 

Point to 1st run-time descriptor block 

Save initial memory pointer 

Load a shared run-time system 

Point to next shared run-time descriptor 

Are there more to load? 

Br if yes 

Compute amt of space used by run-times 

Save total run-tiine size 

ME.. PROASM 

If lue are running on a Pro* load the PI handler like a shared run-time 

Are we running on a Pro? 
Br if not 

Point to dummy shared run-time block for PI 
Save current memory pointer 
Load PI handler like a shared run-time 
Calculate amt of space used by PI handler 
Count in mapped-handler size 
. ENDC i NE, PROASM 

i Load any mapped handlers 

i 

10«; CALL GETHNH ; Load mapped handlers 

i 

i Allocate space for data cache buffers and control tables 

i 

CALL CSHBUF ; Allocate space for data cache 

We have finished allocating all of the memory used by the system. 
Allocate and initialize a memory map table that will be used to 
show which pages are available for user jobs. 

CALL MAPALC ; Allocate memory map table 

Set up info about maximum memory space available to jobs 



TSTB 


PROFLG 


BEQ 


10* 


MOV 


#PISRT, Rl 


MOV 


R5. R2 


CALL 


GETSRT 


SUB 


R5, R2 


ADD 


R2, MHN3I2 



CALL SETJSZ 
Set up date and time 



SYTIML. RP. 
#AREA, #SYT1MH 



MOV 
. GTIM 
. DATE 

MOV RO, SYSDAT 

CMP R2>SYTIML 

BNE 11* 

.PRINT #TSXHD 

.PRINT #NOCLOK 

JMP INISTP 



SET JOB SIZE INFO 



Save time we got at start of init 

SET TIME OF DAY 

GET DATE 

SET SYSTEM DATE 

Make sure some time has elapsed 

Br if clock is running 

Print error message heading 

Print clock-not-working message 

Abort initialization 
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» f 

I 

' c 

I 

) i 
I 
( 

I 
c 
I 
I 

I i 
c 

I 



230 

231 010252 

232 

233 

234 

235 

236 010254 013702 000154' 

237 010260 006202 

238 010262 013703 000152' 

239 010266 000241 

240 010270 006003 

242 010274 

243 

244 

245 

246 010330 004737 027670' 

247 

248 

249 

250 010334 000137 003420' 



•WM .L OC K tf II S wc^R s> U ^ n 3*t I i;3fc.i'i I Ui 1 x j. b fi SUJa pp0u boCk ifi. 

U*: .UNLOCK ; RELEASE USR 

Read back into memory that part of the resident portion of TSX 
that we overlayed with our work buffer. 



WRKSIZ, R2 
R2 
WRKBUF, R3 



Get size of work buffer 

Convert to # words 

Get address of work buffer area 

Convert to block # in TSX. SAV file 



MOV 

ASR 

MOV 

CLC 

ROR R3 

SWAB R3 

. READW #AREA, #17. WRKBUF, R2, R3 i Read back TSX over work buffer 

See if user requested control-C abort 

CALL CCATST i JUMP TO I^4ISTP IF '^C'C BEFORE THIS POINT 

Jump to code at end of TSINIT which takes over control from RT-11 

JMF TAKOVR 



€ 
C 
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J. 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 

13 
14 
15 
16 
17 
13 
19 
20 
21 
22 
23 
24 
25 
26 



3BTTL * * * SubrQU tines •«■ * * 

SBTTL ALCWRK — Allocate a work buffer 



010340 010246 



10342 
10346 
10352 
10356 
10362 



10370 
10372 



012702 
062702 
042702 
010237 
012737 



012602 
000207 



Allocate a 2048. byte work buffer over a resident portion of TSX. 
This area will be restored from the TSX. SAV disk file after we 
are finished using the work area. 



Outputs: 
WRKBUF ~ Address of ba^s of work buffer. 
WRKSIZ = Size of work buffer <204S). 



ALCWRK: MOV 



R2> -<SP) 



Qet address of start of area where buffer can go and then bound 
up to a block boundary. 



OOOOOOG 

000777 

000777 

000152' 

004000 000154' 



MOV 
ADD 
BIC 
MOV 
MOV 

F i n 7 r, h p d 



MOV 
RETURN 



#EXCBUF, R2 
#777, R2 
#777, R2 
R2, WRKBUF 
#2048. , WRKSIZ 



3P)+, R2 



; Get address of base of buffer area 
i Bound up to block boundary 
j Set to block boundary 
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f 

I 

I f 

i 

I 



TSINIT - 
ALCHRB - 

1 

3 
4 
5 

7 
8 
9 
10 
11 
12 
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16 
17 
18 
17 
20 
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25 
26 
27 
28 
2*7 
30 
31 
32 
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34 
35 
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40 
41 
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45 
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48 
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— Allocate Region Control Blocks for handlers 



ALCHRB 



Allocate Region Control Blocks for handlers 



This routine allocates and initializes empty Region Control Blocks for 
use by device handlers. Handler XM regions not supported on Pro/TSX-Plus. 



. IF 



NE, <PRDASM-1> ;Only for 11 's 



010374 010246 



010376 013700 OOOOOOG 



010402 010537 OOOOOOG 

010406 010537 OOOOOOG 

010412 162737 OOOOOOW OOOOOOQ 

10420 0l2/'25 V777 77 



010424 012702 000005 
010430 005025 
010432 077202 



010434 005300 
010436 003372 



010440 012725 177777 



010444 012602 
010446 000207 



Inputs: 
R5 -- Pointer to start of memory area where RCB's s^rs to be built. 

Outputs: 
R5 - Pointer past end of RCB area. 

ALCHRB: MOV R2, -<SP) 

Get count of # RCB's to build 

MOV NDVRCB.RO ; Get # RCB's to build for handlers 

Store pointer to start of RCB ar&a and store -1 at beginning of i&vea 



flUV 

MOV 

SUB 
MOV 



R5, HANRCB ; Start of RCB av^aa. 

R5, HANRCO ; Store offset relative to MONVEC 

#MuNVEC> HANRCU > Convert address to offset 

#■"1, <R5}+ .; Store -1 at start of ar^a 



Allncate and initial!:?© to i^bto the RCB's 



1*: 


MOV 


#5. ,R2 


2*: 


CLR 


<R5) + 




SOB 


R2, 2« 



iEach RCB has 5 uiords 
; Zero the RCB 



See if there avQ more RCB's to build 



DEC 
BGT 



RO 
1* 



Store -1 at end of RCB area 



MOV 


#-1, <R5)+ 


; Finished 




MOV 


(SP)+, R2 


RETURN 




. IFF 


i NE, CPR0ASM-1> 


AlCHRB: RETURN 




. ENDC 


; NE, <PROASM L> 



/More RCB's to initialize? 
j Loop if yes 



jMark end of RCB list 



; Dummy for Pro-only 



c 
( 

4 

i 
I 
f 

C 



TSINIT - 
ALCHRB - 
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■7 

10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
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- Allocate Region Control Blocks for handlers 



110450 
H0452 
110454 
H0456 



o; 

03 
0] 
03 
010460 



26 010476 

27 010502 

28 010510 

29 010512 

30 010516 

31 010520 

32 010524 

33 010526 

34 010532 

35 010534 

36 010540 

37 010542 

38 010546 
39 

40 010552 

41 010556 

42 010560 

43 010564 

44 010566 
45 

46 010570 

47 010574 

48 010576 

49 010602 

50 010604 

51 010610 
52 

53 010612 

54 010616 
55 

56 
57 



. IF NE/ ^CrRuAisM-il'- ; If not assembling for Pro only 
. SBTTL LINCHK — Check validity of T/'S line 

LINCHK is called to checfc the validity of specified T/S line 
vector and status register addresses. 

If an uninstalled line is detected this routine aborts if 
INIABT=1 or sets the *DEAD flag for the line if INIABT=0. 



010146 
010246 
010346 
010446 
013746 



ooc 



LINCHK: 


MOV 


R1,-<SF) 




MOV 


R2, -<3P) 




MOV 


R3, -(SP) 




MOV 


R4, -<SP) 




MOV 


©#4, - ( SP ) 



010464 012737 010664' 000004 



010472 012701 OOOOOOG 



* SAVE ORIGINAL TRAP VECTOR 
Take over trap control 

MOV #6*, e#4 ; CATCH TRAPS 

Loop through the test foT- each line. 

MOV #LSTLIN. Rl i NUMBER OF LAST LINE 

Determine if this is a primary line or an I/O line and set the 
addresses of the interrupt service routines. 



004737 
032761 
001440 
016103 
001411 
016302 
001403 
016304 
000407 
004737 
000424 
016102 
016104 

020227 
103445 
032702 
001042 
005712 

020427 
103445 
020427 
103042 
032704 
001037 

162701 
003327 



006214' 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

010636' 

OOOOOOG 
OOOOOOG 

160000 

000007 

000060 
000500 
000007 

000002 



onnnnoc 



i*: CALL LINTYP 

BIT #*HARD, LSW3 < R 1 ) 

BEQ 31* 

MOV LMXNUM<R1),R3 

BEQ 2* 

MOV MXCSR<R3),R2 

BEQ 11* 

MOV MXVEC<R3),R4 

BR 3* 

CALL 4* 

BR 31* 

MOV RSR(R1>,R2 

MOV INVEC<R1),R4 



11*: 
2*: 



Determine the type of this line 

Is this line connected to hardware? 

Br if not 

IS THIS A DL-11 OR MULTIPLEXER LINE? 

BR IF DL-11 

GET DZll OR DHll STATUS REGISTER ADDRESS 

BR IF ALREADY MARKED AS DEAD 

GET MUX INTERRUPT VECTOR ADDRESS 

MARK LINE AS DEAD 

CONTINUE CHECKING TERMINALS 

GET DL-11 STATUS REGISTER ADDRESS 

GET DL-11 INTERRUPT VECTOR ADDRESS 



3*: 



Check validity of status register address. 



CMP R2, #160000 

BLO LINTRP 

BIT #7, R2 

BNE LINTRP 

TST ©R2 



IS IT IN I/O PAGE? 

ERROR IF NOT 

IS IT ON 8-BYTE BOUNDARY? 

ERROR IF NOT 

TRY TO ACCESS IT AND SEE IF WE TRAP 



Check validty of interrupt vector address 
CMP R4, #60 
BLO BADVEC 
CMP 



R4, #500 

BHIS BADVEC 

BIT #7, R4 

BNE BADVEC 

i This line looks good 

31*: SUB #2, Rl 

BGT 1* 



; CAN'T BE BELOW 60 
i OR ABOVE 500 



; MUST BE ON 8-BYTE BOUNDARY 

Check next. 

i MORE TO CHECK? 
i BR IF YES 



I 
( 
f 

i 
i 

€ 
i 

< 

i 
4 

I 
I 

< 



Finished — all lines look ok. 



t 
t 



I 



I 

t 
I 

( 



TSINIT ■ 
LINCHK • 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 

69 

Tn 

/ v/ 

71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 



— TSX startup initializ MACRO 

— Check validity of T/S line 
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010620 
010624 
010626 
010630 
010632 
010634 



010636 
010642 
010644 
010652 
010654 
010656 
010662 



010664 
010670 



010672 
010700 
010706 



010710 
010716 
010724 
010726 
010730 
010734 
010742 
010750 
010752 
010754 
010760 
010766 



012637 
012604 
012603 
012602 
012601 
000207 



000407 



000004 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



<SP)+, @#4 
<SP)+, R4 
<SP>+, R3 
(SP)+, R2 
(SP)+, Rl 



i RESTORE TRAP VECTOR 



See if uje should abort or just mark the line as dead. 



105737 OOOOOOe 4*: 

001013 

052761 OOOOOOG 0000000 

005703 

001402 

005063 0000000 

000207 5*: 



TSTB 


VINABT 


BNE 


LINTRP 


BIS 


#*DEAD, LSW3<R1) 


TST 


R3 


BEQ 


5* 


CLR 


MXCSR<R3) 


RETURN 





DOES HE WANT TO ABORT? 

YES 

MARK LINE AS DEAD 

IS THIS A DLll OR A MUX LINE? 

BR IF DLll 

MARK DZ OR DH AS DEAD 



004737 010636' 
000002 



Trap occured while trying to access status register. 
6$: CALL 4* 



CALL 
RTI 



; REPORT ERROR OR MARK AS DEAD LINE 
i RETURN TO LINE CHECKING 



Error; Irsvalid status register address. 

K.1 ~ Line numberi R2 - status register address 



LINTRP: .PRINT #TSXHD 
. PRINT #BADL1N 
BR ERP 



; PRINT ERROR MESSAGE 



Error: Invalid interrupt vector address. 

Rl = Line numberi R4 = interrupt vector address 



010402 
010200 
004737 027704 ' 



010100 
006200 
004737 027754 

000137 004102 



BADVEC: .PRINT #TSXHD 

.PRINT #BDVMSG 

MOV R4, R2 

ERP: MOV R2. RO 

CALL PRTOCT 

PRINT #CRLF 

.PRINT #BDLMSG 

MOV R1,R0 

ASR RO 

CALL PRTDEC 

.PRINT #CRLF 

JMP INISTP 

. ENDC i HE, <PROAE>M l.> 



PRINT ERROR MESSAGE 

GET VECTOR ADDRESS TO R2 
GET ADDRESS TO RO 
PRINT OCTAL VALUE 

LINE # = 

GET LINE NUMBER 

# 1 

PRINT LINE NUMBER 

i ABORT INITIALIZATION 



4 
f 
< 
4 
i 
€ 
{ 

€ 

i 
I 
i 
t 
< 
( 



TSIIMIT - 


— TSX s 


tartup initializ 


OPNSWP - 


— Open 


system suiap file 


i 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


010772 


010146 




14 


010774 


010246 




15 


010776 


010346 




16 








17 








18 








19 


011000 


013700 


OOOOOOG 


20 


011004 


004737 


027514' 


21 


011010 


103546 




22 








23 








24 








25 


011012 


012703 


OOOOOOC 


26 


011016 


012701 


OOOOOOG 


27 


011022 


032761 


ooooooe 


28 


011030 


001001 




29 


011032 


005203 




30 


011034 


162701 


000002 


31 


011040 


003370 




32 


011042 


020337 


OOOOOOG 


33 


011046 


002002 




34 


011050 


010337 


OOOOOOG 


35 








36 








37 








38 


011054 


013703 


OOOOOOG 


39 


011060 


006303 




40 


011062 


063703 


OOOOOOG 


41 


011066 


010337 


OOOOOOG 


42 








43 








44 








45 


011072 


070337 


OOOOOOG 


46 








47 








48 








49 








50 


011076 






51 


011116 


103415 




52 








53 


011120 


020003 




54 


011122 


001453 




55 








56 








57 


011124 
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3ETTL QPNSwP 



Op en System swap rlAfi 



OPNSWP Is called to open the TSX job swap file. 
It also assigns smap file slots for each line. 

Inputs: 
R5 = Address of base of free memory region 

Out-puts: 
SWPCHN = Set up for access to swap file. 
LSWPBK<i) = Starting block number in swap file for swap area for line. 



OPNii 



MOV 
MOV 
MOV 



R 1 , - < SF ) 

R2) -(SP ) 
R3.. -<SP) 



Load RT-11 handler foi- swap device. 



MOV 

CALL 

BCS 



SWDBLK, RO 

RTFTCH 

11* 



Get name of device 
Fetch the RT-ll handler 
Br if invalid device 



Compute thf? maximum numhF>r of slots in swap file that we could need 



OOOOOOG 1$: 



5$: 



MOV #NSL+NDL.. R3 

MOV #LSTPL, Rl 

BIT #*DEAD; LSW3 « R 1 ) 

BIME 5* 

INC R3 

SUB #2, Rl 

BGT 1* 

CMP R3, VSWPSL 

BGE 6* 

MOV R3, VSWPSL 



Get tt virtual lines and detached jobs 

Get index to last primary line 

Is this line installed'? 

Br if not 

Count another primary line 

Get next line index 

Loop if more lines to check 

Compare with # slots specified 

Br if VSWPSL value is ok 

Reduce number of slots in swap file 



Determine how many blocks are needed for each slot in swap file. 



6'^: 



MOV VHIMEM, R3 

ASL R3 

ADD CXTPAG, R3 

MOV R3, SLTSIZ 



i GET # BLOCKS NEEDED FOR LARGEST JOB SIZE 

i ADD # BLOCKS NEEDED FOR JOB CONTEXT AREA 
j Save size of swap file slot 



4* 



Compute the total number of blocks needed for the swap file. 

MuL VSWPSL, R 3 > Multiply by # slots in swap file 

R3 now contains total number of blocks needed in swap file. 
See if swap file already pi<:ists on disk. 

.LOOKUP #AREA, #1,#SWDBLK>D0ES SWAP FILE EXIST NOW? 

BCS 2* ;BR IF NOT 

Swap file exists. See if it is the right size. 

CMP RO, R3 -i IS SWAP FILE THE RIGHT SIZE? 

BEG 3* iBR IF YES 

Old swap file is not of correct size. 
Delete it and open a new swap file. 

. CLOSE #1 



r 

I 

f 
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4 

I 



i 

c 

» c 

t 
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TSINIT - 
OPNSWP - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



- TSX startup initializ 

— Open system swap file 

011132 



011152 
011176 



103443 



011200 
011202 
011240 
011242 
011250 



005303 
005203 
000712 



011252 
011256 
011262 



011266 



011276 
011300 
011302 
011304 



011306 
011314 
011322 



011326 
011330 
011336 
011344 



011350 
011356 
011360 
011364 
011372 



012700 OOOOOOG- 
013702 OOOOOOG 
004737 027134' 



012603 
012602 
012601 
000207 



004737 011350' 



010001 



004737 011376' 



010300 

004737 027754' 

000137 004102' 
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.DELETE #AREA.. #1* #SWDBLKi DELETE THE OLD SWAP FILE 

Create a new swap file. 

2*: ENTER #AREA, #1 . #SWDBLK, R3 i CREATE A NEW SWAP FILE 
BCS 9* J BR IF SOME ERROR ON OPEN 

Swap file has been create'd. 

Write to last block to reserve full space in file then close 

and reopen the channel using a . lookup. 

DEC R3 ; GET # OF LAST BLOCK. IN FILE 

. WRITW #AREA, #1,#TSINIT,#256. ,R3 > WRITE TO LAST BLOCK IN FILE 

INC R3 ; GET BACK # BLOCKS IN FILE 

CLOSE #1 i CLOSE FILE WE CREATED 

BR 4* i NOW GO REOPEN USING A . LOOKUP 



bwap 



^1 ie 



b0&n succi 






spened using a . lookup. 



Now copy channel status to TSX swap channel. 



3$; MOV #SWPCHN, RO 
MOV SwDBLK, Rk 
CALL SETCHN 



; POINT TO SWAP CHANNEL BLOCK 

i GET DEVICE NAME 

; SET UP SWAP CHANNEL INFO 



HeicjDse the RT-11 device handlc?r 



, RELEAS #SWDBLK 
Fini&hed 



J Release RT—ll device handler 



MOV 


( SP ) +.. 


R3 


MOV 


<SP)+, 


R2 


MOV 


(SP>+, 


Rl 


RETURN 







Error: Cannot open swap file 
9$: .PRINT #TSXHD ; PRINT ERROR MESSAGE 

; Print info about number of blocks needed 
Error: Invalid device specification. 



.PRINT #TSXHD 
. PRINT #BADOPN 
CALL SPNEED 



11*: MOV RO, Rl 

.PRINT #TSXHD 

-PRINT #BADOPN 

CALL BADDEV 



; Save device name 

i Print error message 



iPrint invalid device specification 
Errar: Number of contiguous blocks required. 



SPNEED: . PRINT #CONSPC 

MOV R3, RO 

CALL PRTDEC 

. PRINT #CRLF 

JMP INISTP 

■> Bad file specification. 



i Print contiquous blocks needed 
i GET # BLOCKS NEEDED FOR FILE 
i DISPLAY # BLOCKS NEEDED 

i ABORT INITIALIZATION 
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I 
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TSINIT — TSX startup initializ MACRO V05. 05 
OPNSWP — Open system swap file 
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113 

ii6 

117 
118 
119 
120 



011376 
011404 
0114O6 
011412 
011420 



010100 
004737 



030020 



000137 004 lOJ 



ADDEV: 


. PRINT 


wCFHMSG 




MOV 


Rl-RO 




CALL 


PRTR50 




. PRINT 


#CRLF 




JMP 


INISTP 



> Print invalid device specification 

; Get the rad50 device name 

i Print radSO device name 

iPrint carriage return/line feed 

; Abort initialization 



f 

( 

( 

I 

i 
i 



TSINIT — TSX startup initializ 
OPNRSF — Open PLAS region swap 
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file 



4 








5 








6 








7 








8 








9 








10 








11 


011424 


010346 




12 








13 








14 








15 








16 


011426 


105737 


0000000 


17 


011432 


001513 




18 


011434 


005737 


OOOOOOG 


19 


011440 


001510 




20 








21 








22 








23 


011442 


013700 


0000000 


24 


011446 


004737 


027514' 


25 


011452 


103515 




26 


011454 


013703 


OOOOOOG 


27 








28 








29 








30 


011460 






31 


011500 


103416 




32 








33 








34 








35 








36 


011502 


020037 


OOOOOOG 


37 


011506 


001453 




38 








39 








40 








41 








42 


011510 






43 


011516 






44 








45 








46 








47 


011536 






48 


011564 


103440 




49 








50 








51 








52 








53 








54 


011566 


005303 




55 


011570 






56 


011626 






57 


011634 


000711 








OPNRSF is called to open the swap file used for PLAS regions. 

Inputs: 
R5 = Address of base of free memory area. 

Outputs: 
SEGCHN = Set up to access swap file. 



OPNRSF: MOV 



R3/ -(SP) 



TSTB 


VSWPFL 


BEQ 


9* 


TST 


VPLAS 


BEQ 


9* 



4*: 



Return if this is a non-Eiwapp ing system or if region swap 
not wanted. 

Is this a non-swapping system? 

Br if yes 

Is a PLAS swap file wanted? 

Br if not 

Load RT~11 device handler for swap device 

: Get name of device 

, fry to fetch the RT-11 device handler 

; Hr If error on handler fetch 

i Get # blocks in PLAS swap file 

See if PLAS swap file already exists on disk 

.LOOKUP #AREA. #1>#RSFBLK i Try to find existing PLAS swap file 
DCS 2* j Br if file does not now exist 

PLAS swap file exists. 

See if it is the correct size. 



MOV 


RSFBLK, RO 


CALL 


R IF TCH 


BCS 


11* 


MOV 


VPLAS, R3 



CMP 
BEQ 



RO, VPLAS 
3* 



ils swap file of the correct size? 
j Br if yes 



?$; 



Old PLAS swap file is not of correct size. 
Delete it and open a new swap file. 

.CLOSE #1 i Close and delete the old file 

• DELETE #AREA, #1,#RSFBLK; Delete the old file 

Create new swap file 

-ENTER #AREA, #1, #R3FBLK, VPLAS ; Create a new PLAS swap file 
BCS 10* » Br if cannot create new file 

New swap file has been created. 

Write to last block to reBerve full file size 

and then close and reopen with a lookup. 

DEC R3 J Get # of last block in file 

. WRITW #AREA, #1, #TSINIT, #256. , R3 

. CLOSE #1 

BR 4$ > Go back and lookup file 



i 

i 
f 
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TSINIT 
OPNRSF 
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-~ Open PLAS region suiap file 



Siijap file has been sucicessf ui ly opened using lookup. 
Copy channel status to TBX channel block. 



011636 
011642 
011646 



011652 



011662 
011664 



011666 
011674 
011702 



011706 
011710 
011716 
011724 



012700 OOOOOOG 
013703 OOOOOOG 
004737 027134' 



012603 
000207 



004737 011350' 



010001 



004737 011376' 



3*: 



MOV 


ttSEGCHN. RO 


MOV 


RSFBLK, R3 


CALL 


SETCHN 



9*; 



; Point to TSX PLAS swap channel 

» Get device name 

; Set up TSX channel block 



Release the RT— 11 device handler 

. RELEAS #RSFBLK ; Release RT-11 device handler 

F i 11 i F> h e d 

MOV <SP)+. R3 
RETURN 



k. I t U > 



Carniut upt/n PLAb' Bui*.sp file 



10*: , PRINT #TSXHD 
.PRINT #RSFERR 
CALL SPNEEl) 



>• Print error prefix 

i Print error message 

; Print information about amt of space needed 



Error, invalid device specification. 



11«: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #RSFERR 

CALL BADDEV 



i Save device name 

; Print error message 

iPrint invalid device specification 
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11730 
11734 
11736 
1 1 740 



011742 
011744 
011746 
011750 
011752 



11754 
11760 
11764 
11770 
11774 
12000 
12002 
12006 
12010 
12014 
12016 
12020 
12022 
12026 
12030 
12032 
12036 
12042 
12044 
12050 
12052 
12056 
12060 
12064 
12066 
12070 
12074 
12100 
12102 
12106 



005727 
001401 
000401 
000207 



010146 
010246 
010346 
010446 
010546 



105037 
012701 

W J. ci/ u J 

012704 
004737 
011302 
010261 
010100 
062700 
1 1 2420 
112420 
112420 
020227 
001451 
010200 
004737 
010061 
010200 
004737 
103406 
004737 
103414 
105237 
000432 
010100 
062700 
004737 
103403 
105237 
000421 



0000000 



0000000 
000000(3 
OOOOOOQ 

ooooooy 

013002 ' 
0000000 
0000000 



0000000 

012704 ' 
OOOOOOG 

012600' 

012514' 

0000000 



0000000 
027046 ' 

OOOOOOG 






SPLINI performs the initialization of the spooling system. 
Inputs: 
R5 = Current base of free memory area. 



; Are there any spooled devices? 

; Br if not 

; Initialize the spooled devices 



SPLINI: 


TST 


#SPLND 




BEQ 


13* 




BR 


10* 


13*: 


RETURN 




; There are s 


Dme spoo 



10*: 



Open 



?*: 



14*: 



MOV 


R 1 - = ( SP ) 


MDV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


each 


spooled device 


CLRB 


NSPLDV 


MOV 


#SDCB, Rl 


MOV 


#3PLDEV> R3 


MOV 


#SPLANM> R4 


CALL 


FORCEO 


MOV 


(R3),R2 


MOV 


R2, SDNAME(R1 


MOV 


Rl, RO 


ADD 


#SDANAM, RO 


MOVB 


(R4)+, (R0) + 


MOVB 


(R4)+, (R0)+ 


MOVB 


(R4)+, <R0)-(- 


CMP 


R2, #DMYDEV 


BE(3 


1* 


MOV 


R2>R0 


CALL 


CVTDVU 


MOV 


RO, SDDVU(Rl) 


MOV 


R2, RO 


CALL 


CHKCLD 


BCS 


14* 


CALL 


SPLCLD 


BCS 


3* 


INCB 


NSPLDV 


BR 


1* 


MOV 


Rl, RO 


ADD 


#SDCHAN, RO 


CALL 


OPNCHN 


BCS 


3* 


INCB 


NSPLDV 


BR 


1* 



IN IT COUNT OF # ACTUAL SPOOLED DEVICES 
POINT TO 1ST SDCB 

TO TABLE OF RAD50 

TO TABLE OF ASCII 

UNIDENTIFIED UNIT 



POINT 
POINT 
FORCE 



DEV 
DEV 



NAMES 
NAMES 



#S TO 



GET RAD50 NAME OF SPOOLED DEVICE 

SET NAME IN SDCB 

GET ADDRESS OF SDCB 

POINT TO CELL FOR ASCII NAME 

MOVE IN ASCII DEVICE NAME 



iter patching' 



unit 

SDCB 



# 



Is this a dummy entry for li 

Br if yes — Ignore it 

Get name to RO 

Convert name to device # and 

Store device # and unit # in 

Get device name 

See if this is a CL device?" 

Br if not 

Set up for spooling to CL device 

Br if invalid unit 

Count # of actual spooled devices 

Process next device 

Get address of SDCB 

Point to channel block within SDCB 

Set TSX-Plus channel block open to device 

Br if did not recognize device 

Count # actual spooled devices 

GO PROCESS NEXT DEVICE 



Error on opening spooled device 

Determine if uie should print an error message or simply 

mark the spooled device as unavailable. 



I 
I 
f 



i 
( 

( 

c 
I 
« 

i 
i 
« 
I 
f 



012110 012761 OOOOOOG OOOOOOG 3*: 



MOV 



#DMYDEV, SDNAME(Rl)j SAY THIS DEVICE IS NOT SPOOLED 



i 
i 
c 



i 

f 
f 

i 

i 

I 

( 

» f 
i 
€ 



TSINIT - 


— TSX s 


tartup initializ 


SPLINI - 


-- Initialize sp 


Doling B 


5S 


012116 


105737 


OOOOOOG 


59 


012122 


001413 




60 


012124 






61 


012132 






62 


012140 


010200 




63 


012142 


004737 


030020 ' 


64 


012146 


000137 


004102' 


65 








66 








67 








68 


012152 


062701 


OOOOOOG 


69 


012156 


005723 




70 


012160 


020327 


OOOOOOG 


71 


012164 


103703 




72 








73 








74 








75 


012166 


105737 


OOOOOOG 


76 


012172 


001521 




77 


012174 


013700 


OOOOOOG 


78 


012200 


004737 


027514' 


79 


012204 


103532 




80 


012206 


013702 


OOOOOOG 


81 


012212 


005202 




82 








83 








84 








85 


012214 






86 


012234 


103415 




87 


012236 


020002 




88 


012240 


001453 




89 


012242 






90 


012250 






91 








92 








93 








94 


012270 






95 


012314 


103456 




96 








97 


012316 


010203 




98 


012320 


005303 




99 


012322 






100 








101 


012360 






102 


012366 


000712 




103 








104 








105 








106 








107 


012370 


012700 


OOOOOOG 


108 


012374 


013702 


OOOOOOG 


109 


012400 


004737 


027134' 


110 


012404 






111 








112 








113 








114 


012414 


113703 


OOOOOOG 
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1$: 



TSTB VINABT 

BEQ 1* 

.PRINT #TSXHD 

.PRINT #BDSPOP 

MOV R2, RO 

CALL PRTR50 

JliP INISTP 

Process next spooled device 

ADD #SDCBSZ,R1 

TST <R3)+ 

CMP R3. #SPLDvN 

BLD 2* 

Open the spool file 



TSTB 


NSPLDV 




BEQ 


12* 




MOV 


SPLBLK, 


RO 


CALL 


RTFTCH 




BCS 


11* 




MOV 


NSPLBL, 


Rr> 


INC 


R2 





ABORT OR CONTINUE ON ERRORS? 

BR TO IGNORE DEVICE AND CONTINUE INIT 

PRINT ERROR MESSAGE 

GET RAD50 DEVICE NAME 
PRINT DEVICE NAME 
ABORT INITIALIZATION 



POINT TO NEXT SDCB 

POINT TO NEXT DEVICE NAME 

OPENED ALL SPOOLED DEVICES? 
BR IF MORE TO DO 



ARE THERE ANY ACTUAL SPOOLED DEVICES? 

BR IF THERE ARE NO ACTUAL SPOOLED DEVICES 

Get name of device for spool file 

Fetch the RT-11 device handler 

Br if cannot fetch handler 

GET # BLOCKS TO ALLOCATE FOR FILE 

Add 1 extra block 



See if spool file already exists 



5*: .LOOKUP #AREA, #1, #SPLBLK 

BCS 6* 

CMP RO, R2 

BEQ 7* 

. CLOSE #1 

. DELETE #AREA, #1, #SPLBLK 

Open new spool file 



SEE IF SPOOL FILE ALREADY EXISTS 

BR IF IT DOES NOT EXIST 

IS IT THE RIGHT SIZE? 

BR IF YES 

IT EXISTS BUT IS OF WRONG SIZE 

DELETE CURRENT FILE AND OPEN NEW ONE 



6*: ENTER #AREA, #1, #SPLBLK, R2i CREATE A NEW SPOOL FILE 
BCS 8* iBR IF ERROR ON ENTER 

i Write to last block in file to reserve full file space 
MOV R2, R3 ;Get # of blocks in file 

DEC R3 -Get # of last block in file 

. WRITW #AREA, #1, #TSINIT, #256. , R3 

i Now close and reopen using a lookup 

.CLOSE #1 ' i CLOSE SPOOL FILE 

BR 5* i GO BACK AND REOPEN USING LOOKUP 

Spool file has been successfully opened with a lookup. 
Save the channel status 



7*: MOV #SPLCHN, RO 
MOV SPLBLK. R2 
CALL SETCHN 
. RELEAS #SPLBLK 



SAVE CHANNEL STATUS HERE 

GET DEVICE NAME 

SAVE CHANNEL STATUS 

Release the RT-11 device handler 



Set number of ^ree public blocks in spool file 

MOVB NSPLDV/ R3 i Get # spooled devices 



TSINIT ■ 
SPLINI ■ 

115 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 

139 
140 
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Initialize spooling system 



012420 070327 OOOOOOG 

012424 005403 

012426 063703 OOOOOOG 

012432 010337 OOOOOOG 



012436 012605 

012440 012604 

012442 012603 

012444 012602 

012446 012601 



012452 
012460 
1 2466 000 1 37 004 1 02 



012472 
012474 
012502 
012510 



010001 



004737 011376' 



MUL 


#PVSPBL, R3 


NEG 


R3 


ADD 


NSPLBL, R3 


MOV 


R3. NFRESB 


i 

; Finished 




i 

12*: MOV 


(SP)+.R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


9$: RETURN 





; Times number of private blocks per dev 

i Get # public spool blocks 
jThis is number of public free spool blocks 



Error: Cannot open spool file. 



8*: 



. PRINT 
. PRINT 
JMP 



#TSXHD 

#BOSF 

INISTP 



; PRINT ERROR MESSAGE 
i ABORT INITIALIZATION 



Error: Invalid device specification. 



n*: MOV RO.. Rl 

.PRINT #TSXHD 

.PRINT #BOSF 

CALL BADDEV 



.: Save device name 

i Print error message 

iPrint invalid device specification 



i 



TSINIT 
SPLCLD 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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Set up spooling to a CL device 






012516 010005 
012520 020527 
012524 103022 



>00000G 



012526 005061 OOOOOOC 

012532 020527 000007 

012536 101405 

012540 162705 000010 

012544 013700 OOOOOOG 

012550 000402 

012552 013700 OOOOOOG 

012556 010061 OOOOOOC 

012562 110561 OOOOOOC 



012566 000241 
012570 000401 



012572 000261 



012574 012605 
012576 000207 



. 3£S ! ! l_ 



SPLCLD 



Set up spooling to a CL device 



SPLCLD is called to set up a spool device control block when 
spoolino is beina directed to a Communication Line <CL> device. 



Inputs: 
RO = CL unit number 
Rl = Address of SDCB 

Outputs; 
C-flag set ==> Invalid CL unit 

SPLCLD: MOV R5, -<SP) 

Make sure CL unit number is valie 



MOV R0>R5 

CMP R5> #CLTO TL 

BHIS 8* 



i Get CL unit number 

i Is this a valid unit # 

j Br if inval id 



1$: 
2*: 



Set up channel control block in SDCB 

CLR SDCHA^4+C SBLK<Rt ); Starting block # = 

CMP R5, #7 ils this a CL or CI unit? 

BLOS 1* ; Br if CL unit 

SUB #8. , R5 ; Remove CI unit # bias 

MOV GIDEVX^RO ; Get CI device index number 

BR 2* 

MOV CLDEVX,RO i Get CL device index number 

MOV RO, SDCHAN+C. CSW<Rl)j Set device index number 

MOVE R5, SDCHAN+C. DEVQ(Rl); Set unit # 

We successfully set up a CL unit 

i Signal success on error 



CLC 
BR 



9* 



We cannot open this CL unit 

8$: SEC 

Finished 

9*: MOV <SP)+>R5 

RETURN 



Signal error 



t 
t 

i 



i 
c 
c 
( 

► ( 
( 
I 

i 
i 
€ 
i 

I 

1 

I 

< 

4 
( 
I 

i 

c 



TSINIT - 


— TSX s 


tartup initial! 


CHKCLD - 


™ See i 


f a device name 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


012600 






14 








15 








16 








17 


012600 


020027 


012240 


IS 


012604 


001411 




19 


012606 


020027 


012276 


20 


012612 


103432 




21 


012614 


020027 


012305 


22 


012620 


iOlOOD 




23 


012622 


162700 


012276 


24 


012626 


000422 




25 


012630 


005000 




26 


012632 


000420 




27 








28 








29 








30 


012634 


020027 


013630 


31 


012640 


001413 




32 


012642 


020027 


013666 


33 


012646 


103414 




34 


012650 


020027 


013675 


35 


012654 


101011 




36 


012656 


162700 


013666 


37 


012662 


062700 


000010 


38 


012666 


000402 




39 


012670 


012700 


000010 


40 








41 








42 








43 


012674 


000241 




44 


012676 


000401 




45 








46 








47 








48 


012700 


000261 




49 








50 








51 








52 


012702 


000207 





. 3BTTL CHKCLD — See if a device name is a CL or CI unit 

Determine if a radSO device and unit name is a CL or CI device. 

Inputs: 
RO = RadSO device spec 

Outputs: 
C-flag set ==> Not a CL or CI unit 
C-fiag cleared ==> This is a CL or CI unit 
RO = CL unit number (O-IS) 



See if this is a CL unit 

CMP RO, #R50CL 
I3EQ 1* 
CMP RO, #R50CL0 
BLO 8* 

CMP RO, #R50CL7 

BHI 2* 
SUB #R50CL0, RO 
BR 7* 

1*: CLR RO 
BR 7* 

See if this is a CI unit 



2*: 



3*: 



CMP RO, #R50C1 

BEQ 3* 

CMP RO, #R50C10 

BLO 8* 

CMP RO, #R50C17 

BHI S* 

SUB #R50CiO, RO 

ADD #8. , RO 

BR 7* 

MOV #8. , RO 

This is a CL or CI unit 



7*: 



CLC 
BR 



9* 



i This is not a CL or CI unit 

i 

8* : SEC 
; Finished 
9$: RETURN 



Is name "CL"? 

Br if yes 

Is name in the range CLO to CL7? 

Br if not 



J Get CL unit number 
; CL - CLO 



i Is name "CI"? 

i Br if yes 

i Is name in the range CIO to C17? 

j Br if not 



i Get unit number 

iBias by 8 for CI units 



iCl = CL8 



i Signal success on return 



i Signal failure on return 



t 
i 

c 

f 

< 
( 
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€ 
I 

1 



I 



TSINIT - 


— TSX s 


tartup initializ 


CVTDVU ■ 


— Convert device name t 


1 
2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 


012704 


010246 




15 


012706 


010346 




16 








17 








18 








19 


012710 


010003 




20 


012712 


005002 




21 


012714 


071227 


000050 


22 


012720 


005703 




23 


012722 


001402 




24 


012724 


162703 


000036 


25 


012730 


010300 




26 


012732 


000300 




27 








28 








29 








30 


012734 


070227 


000050 


31 


012740 


013702 


0000000 


32 


012744 


020362 


OOOOOOG 


33 


012750 


001407 




34 


012752 


162702 


000002 


35 


012756 


002372 




36 








37 








38 








39 


012760 


012700 


177777 


40 


012764 


000261 




41 


012766 


000402 




42 








43 








44 








45 


012770 


050200 




46 


012772 


000241 




47 








48 








49 








50 


012774 


012603 




51 


012776 


012602 




52 


013000 


000207 
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) dev index and unit # 

. SBTTL CVTDVU — Convert device name to dev index and unit # 

CVTDVU is called to convert a RAD50 device name into the corresponding 
device index number and unit number. 

Inputs: 
RO = RAD50 device name. 

Outputs: 
C~flag cleared ==> Conversion successful. 

C-flag set ==>. Unable to find device name in tables. 
RO = Device index number (low byte)* device unit number (high byte). 



CVTDVU: MOV 
MOV 



R2. -(SP) 
R3, -(SP) 



Split the unit number off of the full device name 



1*: 



MOV 


RO. R3 


CLR 


R2 


DIV 


#50, R2 


T3T 


R3 


BECJ 


1* 


SUB 


#36, R3 


MOV 


R3, RO 


SWAB 


RO 



Get full device name 

Set up for divide 

Split name and unit (RO=name* Rl=unit) 

Was a unit number specified? 

Br if not 

Convert unit number to binary value 

Get unit number 

Position to high-order byte 



Look up the device name to get the device index 



2*: 



MUL 


#50. R2 


MOV 


NUMDEV, R2 


CMP 


R3, PNAME(R2) 


BE(3 


3* 


SUB 


#2, R2 


BGE 


2* 



i Now get the device name without unit number 

; Get index number of last device 

i Search for device in name table 

; Br if found it 

J Try next device 

j Loop if more to check 



Error, cannot find device name in tables 
#-1. RO 

i 

9* 
Found the device in the tables 



MOV 
SEC 
BR 



} Set device # = unit # = 
i Signal error on return 



3*: 



9*: 



BIS 


R2. RO 


CLC 




ini shed 




MOV 


(SP)+. R3 


MOV 


<SP)+, R2 


RETURN 





i Combine device # and unit # 
; Signal success on return 



I 

c 

€ 

f 
i 
t 
i 
I 
c 

f 
i 
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i 



i 
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TSINIT 
FDRCEO 



-- TSX startup initializ MACRO V05. 05 
-- Force a 2-char dev name to unit 



> { 



) 



{ 



i 
f 
i 
i 
< 
f 
) i 

i 
I 
i 
i 

( 

( 

i 



1 

c: 
3 
4 
5 
6 
7 
8 
9 



14 
15 
16 



10 

11 

12 

13 



17 

18 

19 

20 

21 

22 O 

23 O 

24 

25 

26 

27 



13002 
13004 
13006 
13010 
13012 
13014 
13020 
13022 
13024 
13026 
13030 
13034 
13036 
13040 
13042 
13044 
13050 
13052 
13054 
13056 
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SBTTL 



FORCEO — Force a 2-char dev name to unit 
Inputs: R3 points to a RAD50 device name 

the 3rd char of the device name pointed to by R3 is 



010346 
010446 
010546 
011305 
005004 
071427 
005705 
001012 
010405 
005004 
071427 
005704 
001404 
005705 
OO 1 402 
062713 
012605 
012604 
012603 
000207 



000050 



000050 



000036 



; Outp 


uts: If 


the 3rd char 




blank/ 


then it is c 


FORCEO: 


MOV 


R3, -<SP) 




MOV 


R4i -<SP) 




MOV 


R5, -(SP) 




MOV 


(R3),R5 




CLR 


R4 




DIV 


#50, R4 




TST 


R5 




BNE 


9« 




MOV 


R4, R5 




CLR 


R4 




DIV 


#50, R4 




TST 


R4 




BEQ 


9* 




TST 


R5 




BEQ 


9* 




ADD 


#-^R 0, (R3) 


9*. 


MOV 


(SP)+,R5 




MOV 


<SP)+, R-l 




MOV 


<SP)+, R3 




RETURN 





MOVE CURRENT DEV NAME TO R5 

SET UP FOR DIVIDE 

SEPARATE INTO NAME AND UNIT 

WAS 3RD CHAR BLANK? 

RETURN IF NOT 

GET HIGH 2 CHARS 

SET UP FOR ANOTHER DIVIDE 

SEPARATE 1 S< 2 CHARS 

WAS CHAR 1 BLANK? 

EMPTY OR INVALID DEV NAME! 

WAS CHAR 2 BLANK? 

1-CHAR DEV NAME SHOULD BE INVALID??? 

FORCE TO UNIT 



I 

c 



i 
c 

> t 

i 
€ 

i 

i 
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\ 
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i 



TSINIT - 


— TSX s 


tartup initializ 


ALOCBF - 


— Allocate buff 


er space 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


013060 


010146 




15 








16 








17 








IS 


013062 


010537 


OOOOOOG 


19 


013066 


062705 


OOOOOOC 


20 








21 








22 








23 


013072 


010537 


OOOOOOG 


24 


013076 


013701 


OOOOOOG 


25 


013102 


020137 


OOOOOOG 


26 


013106 


103002 




27 


013110 


013701 


OOOOOOG 


28 


013114 


070127 


OOOOOOG 


29 


013120 


060105 




30 


013122 


010537 


OOOOOOG 


31 








32 








33 








34 


013126 


012700 


OOOOOOC 


35 


013132 


003404 




36 


013134 


010537 


OOOOOOG 


37 


013140 


062705 


OOOOOOC 


38 








39 








40 








41 


013144 


013701 


OOOOOOG 


42 


013150 


001405 




43 


013152 


010537 


OOOOOOG 


44 


013156 


070127 


OOOOOOG 


45 


013162 


060105 




46 








47 








48 








49 


013164 


010537 


OOOOOOG 


50 


013170 


062705 


OOOOOOC 


51 








52 








53 








54 


013174 


010537 


OOOOOOG 


55 


013200 


013701 


OOOOOOG 


56 


013204 


062701 


OOOOOOG 


57 


013210 


070127 


OOOOOOG 
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. SBTTL ALOCSF 



Allocate buffer space 



ALOCBF is called to allocate space for buffers. The allocated space 
is not initialized but simply reserved. 

Inputs: 
R5 = Start of area to allocate buffer space in. 

Outputs: 
R5 = Address beyond end of buffer area. 
CHNBAS = Address of base of I/O channel space. 
CHNEND = Address past end of I/O channel space. 

ALOCBF: MOV R1,-(SP) 

Assign space for I/O queue elements. 

MOV R5, FREIOQ i START OF I/O QUEUE SPACE 

ADD #I0QSIZ*NUMI0Q.R5; RESERVE SPACE FOR I/O QUEUE ELEMENTS 

Assign space for shared PLAS region control blocks 

; Start of area for RGB's 
i Get number of RGB's uanted 
; Must have one for each display luindow 
i Br if ok 

• Force one for each windou) 
13$: MUL #RC**S2,R1 ; Multiply by size of each block 

iAllocate space for RGB's 
j Address of end of region 

Assign space for fork blocks 

MOV #<NUMFRK-FRKGEN>, RO ; Get # fork blocks to allocate 

BLE 11* i Br if none to allocate 

MOV R5, FRKINI i Set pointer to start of area 

ADD #«NUMFRK~FRKGEN>*FQ**SZ>. R5 ; Reserve space for fork blocks 

Assign space for job monitoring control blocks 



MOV 


R5. SHRRCe 


MOV 


VNGR.Rl 


CMP 


Rl, VMXWIN 


BHIS 


13* 


MOV 


VMXWIN. Rl 


MUL 


#RC**S2,R1 


ADD 


Rl, R5 


MOV 


R5,SHRRCN 



11*: MOV VMXMON, Rl 

BEQ 10* 

MOV R5. MONFQH 

MUL #JM**SZ.R1 

ADD R1,R5 



Any job monitoring blocks wanted? 

Br if not 

Start of job monitoring control blocks 

Compute space needed for control blocks 

Allocate the space 



Allocate space for system message buffers. 

10*: MOV R5, SNMSHD ; HEAD OF SYSTEM MESSAGE BUFFER AREA 
ADD #<NMSNMB*SB**SZ>i R5i RESERVE ROOM FOR MESSAGE BUFFERS 

> Allocate space for INSTALLed program table 



MOV 


R5, INSTBL 


MOV 


VNUIP,R1 


ADD 


#NSIP>R1 


MUL 


#II**SZ,R1 



Base of table 

# slots for user installed programs 
Add # slots for system programs 
Multiply by size of each slot 
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TSINIT - 


— TSX s 


tartup initializ HACRD V< 


35. C 


ALOCBF - 


— Allocate buff 


er space 




58 


013214 


060105 






59 


013216 


010537 


0000000 




60 










61 










62 










63 


013222 


010537 


OOOOOOG 




64 


013226 


012701 


OOOOOOG 




65 


013232 


070137 


OOOOOOG 




66 


013236 


060105 






67 


013240 


010537 


OOOOOOG 




66 










69 










70 










71 


013244 


005737 


OOOOOOG 




72 


013250 


001404 






73 


013252 


010537 


OOOOOOG 




74 


013256 


062705 


ooooooc 




75 










76 










77 










78 


013262 


013701 


OOOOOOG 


12^ 


79 


G 13266 


001407 






80 


013270 


070127 


OOOOOOG 




81 


013274 


010537 


OOOOOOG 




82 


013300 


060105 






83 


013302 


010537 


OOOOOOG 




84 










85 










86 










87 










88 










89 


013306 


012701 


000002 


1*: 


90 


013312 


020127 


OOOOOOG 


2$: 


91 


013316 


101007 






92 


013320 


010561 


OOOOOOG 




93 


013324 


062705 


000020 




94 


013330 


062701 


000002 




95 


013334 


000766 






96 










97 










98 










99 


013336 


012701 


000002 


5$: 


100 


013342 


020127 


OOOOOOG 


6*: 


101 


013346 


101403 






102 


013350 


020127 


OOOOOOG 




103 


013354 


103422 






104 


013356 


026127 


OOOOOOG OOOOOOG 


3*: 


105 


013364 


001404 






106 


013366 


026127 


OOOOOOG OOOOOOG 




107 


013374 


001012 






108 


013376 


010561 


OOOOOOG 


8*: 


109 


013402 


010561 


OOOOOOG 




110 


013406 


062705 


OOOOOOG 




111 


013412 


010561 


OOOOOOG 




112 


013416 


062705 


OOOOOOG 




113 


013422 


062701 


000002 


7*: 


114 


013426 


020127 


OOOOOOG 
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ADD 

MOV 



Ri, R5 

R5, INSTBN 



iAllocate space for table 

i Pointer past end of INSTALL table 



Allocate space for device mount entries 



MOV R5, CSHDEV 

MOV #CD*«SZ,R1 

MUL VMXCSH, Rl 

ADD R1,R5 

MOV R5, CSHDVN 



} Point to start of area 

; Get size of each entry 

iMultiply by number of entries 

; Reserve space for table 

5 Save pointer past end of table 



Allocate space for data cache control blocks 

TST CSHALC ; Is data caching wanted? 

BEQ 12* i Br if not 

MOV R5. CCBHD ; Head of free list area 

ADD #NUMCCB#CC**SZ> R5 ; Allocate space for control blocks 

Allocate space for spool file control blocks 



MOV NSPLFL, Rl 

BEG 1* 

MUL #SFCBSZ,R1 

MOV R5> SFCB 

ADD R1>R5 

MOV R5, SFCBND 



> Get # spool file control blocks needed 

> Br if none needed 

; Compute space needed by control blocks 

; Base of control block acBa 

;Allocate space for control blocks 

i End of control block area 



Allocate space for a 16 byte vector for each multiplexer. 
This vector is used to map from the mux line number to the 
TSX-Plus logical line number. 



MOV #2, Rl 

CMP R 1 , #LSTMX 

BHI 5* 

MOV R5, MXLNT<R1) 

ADD #16. ,R5 

ADD #2iRl 

BR 2* 



START WITH FIRST MUX 

HAVE WE DONE ALL MUX'S? 

BR IF YES 

SET ADDRESS OF START OF VECTOR 

RESERVE SPACE FOR VECTOR 

ADVANCE TO NEXT MUX 



Allocate buffers to hold characters for DMA transfers to DHl 1 multiplexers 



MOV #2, Rl 

CMP R1,#LSTPL 

BLOS 3* i Br 

CMP Rl, #FSTIOL i Is 

BLO 7* i Br 

CMP LCDTYP<R1),#CDX«DH 

BEQ 8* i Br 

CMP LCDTYP ( R 1 ) , #CDX«VH 

BNE 7« 

MOV R5, LDHBIB(RI) 

MOV R5, LDHB1P<R1) 

ADD #DHBFSZ, R5 

MOV R5, LDHB2B(R1) 

ADD #DHBFSZ, R5 

ADD #2, Rl 

CMP R1,#LSTHL 



Start with first line 

Is this a primary time-sharing 

if yes 

this a CL line? 

if not 

line connected 



line? 



Is 
if 
Is 
if 



this 
yes 
th i 5 
not 



line connected 
Br 

Set address of start of buffer 
Initialize pointer into buffer 
Reserve space for buffer 
Set address of start of buffer 
Reserve space for buffer 
Get # of next line 
Have we checked all lines? 



to a DHll? 



to a DHVll' 



f 
I 

c 

I 
i 
i 
I 

i 

€ 
I 

i 

i 

€ 
4 

i 

i 
i 
t 
I 



€ 

i 
{ 
C 

) i 

I 



TSINIT - 


— TSX s 


tartup initializ 


ALOCBF - 


— Allocate buff 


er space 


il5 


013432 


101743 




116 


013434 


005205 




117 


013436 


042705 


000001 


118 








119 








120 








121 


013442 


105737 


OOOOOOG 


122 


013446 


001415 




123 


013450 


013700 


OOOOOOG 


124 


013454 


006300 




125 


013456 


010537 


OOOOOOG 


126 


013462 


060005 




127 


013464 


010537 


OOOOOOG 


128 


013470 


060005 




129 


013472 


010537 


OOOOOOG 


130 


013476 


062705 


OOOOOOC 


131 








132 








133 








134 


013502 


010537 


OOOOOOG 


135 


013506 


062705 


001400 


136 








137 








138 








139 


013512 


010500 




140 


013514 


004737 


027630 ' 


141 








142 








143 








144 


013520 


012601 




145 


013522 


000207 
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BLDS 


6* 




INC 


R5 




BIC 


#1, 


R5 



i Br if not 

i Bound up to next word 



Allocate space for tables that keep track of space in swap file 

Is this a swapping system? 

Br if not 

Get # slots in swap file 

Allocate 2 bytes per slot 

Start of table with starting block #'5 

Allocate space 

Start of table with job #'s 

Allocate space 

Pointer to area with command packets 

Allocate space for swap command packets 

Allocate a 512-byte buffer to use to access job context blocks 



TSTB 


VSWPFL 


BEQ 


14* 


MOV 


VSWPSL, RO 


ASL 


RO 


MOV 


R5, SWPPOS 


ADD 


RO, R5 


MOV 


R5, SWPJOB 


ADD 


RO, R5 


MOV 


R5, SCPFHD 


ADD 


#NSCP#SP**SZ,R5 



14*: 



MOV 
ADD 



R5, CXTBUF 
#1400, R5 



Makp sure TSX is not too bin 



MOV 


R5, RO 


CALL 


CHKMEM 


Finished 




MOV 


<SP)+, Rl 


RETURN 





;Set address of buffer 

i Reserve space for the buffer 



i GET CURRENT MEMORY ADDRESS 
i CHECK FOR SPACE OVERFLOW 



c 

( 
I 
< 
I 
c 
c 
c 
I 
« 

c 
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' X J. \J u w 1 



4 








5 








6 








7 








8 








9 








10 








11 








12 


013524 


010146 




13 


013526 


010246 




14 








15 








16 








17 


013530 


012701 


OOOOOOG 


10 








19 








20 








21 


013534 


012702 


000040 


22 


013540 


020127 


OOOOOOG 


23 


013544 


101405 




24 


013546 


020127 


OOOOOOG 


25 


013552 


103463 




26 


013554 


012702 


000020 


27 








28 








29 








30 


013560 


016100 


OOOOOOG 


31 


013564 


001002 




32 


013566 


013700 


OOOOOOG 


33 


013572 


020027 


OOOOOOG 


34 


013576 


101402 




35 


013600 


012700 


OOOOOOG 


36 


013604 


020002 




37 


013606 


103001 




38 


013610 


010200 




39 


013612 


010061 


OOOOOOG 


40 








41 








43 


013616 


010561 


OOOOOOG 


44 


013622 


010561 


OOOOOOG 


45 


013626 


010561 


OOOOOOG 


46 


013632 


010061 


OOOOOOG 


47 


013636 


060005 




48 


013640 


010561 


OOOOOOG 


49 








50 








51 








52 


013644 


006200 




53 


013646 


162700 


000002 


54 


013652 


116102 


OOOOOOG 


55 


013656 


001002 




56 


013660 


113702 


OOOOOOG 


57 


013664 


020200 





Allocate the silo buffers that are used to hold characters as they 
are received from serial lines. 

Inputs: 
R5 = Current pointer to start of free memory. 

Outputs: 
R5 = New pointer to start of free memory. 



ALCSLO: MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 



Begin loop to check each line 

MOV #LSTHL,R1 ; Get index to last hardware line 

Only allocate silo buffets for real lines 

if: MDV #32. ^ R2 i Set minimum size for time-sharing lines 

>Is this a primary lineT" 
; Br if yes 

! i)T If not 

i Set minimum size for CL lines 



MDV 


#32. , R2 


CMP 


Ri,#LSTPL 


BLOS 


2* 


CMP 


Rl, #FBTIOL 


ALU 


9« 


MDV 


#16. , R2 



Determine how much space to allocate 



2$: 



8$: 



3«: 



4*: 



MOV 


LHIRBA<R1),R0 


BNE 


8* 


MOV 


VNCSLO> RO 


CMP 


RO, #MAXSLO 


BLOS 


3* 


MOV 


#MAXSLa, RO 


CMP 


RO, R2 


BHIS 


4* 


MOV 


R2, RO 


MOV 


RO, LHIRBA<R1) 



Allocate the space 

MOV R5, LHIRBB<Ri) 

MOV R5, LHIRBP(R1 ) 

MOV R5, LHIRBG(Rl) 

MOV RO, LHIRBS<R1) 

ADD RO, R5 

MOV R5, LHIRBE<Ri ) 



Get requested size 

Br if a size was specified 

Use default value 

Constrain size to 255 bytes 

Br if ok 

Reduce size 

Compare with acceptable minimum 

Br if ok 

Use minimum size allowed 

Set # bytes to be allocated for silo 



Set base address of buffer 

Init pointer where to store next char 

Init pointer where to get next char 

Set # free bytes in buffer 

Allocate space for buffer 

Set address beyond end of buffer 



Set up control information about when to send XON and XOFF 

Get 1/2 of buffer size 
Minus two characters 
Get specified size for XOFF point 
Br if value specified 
Try default 
5*: CMP R2, RO ;Is specified value ok?" 



ASR 


RO 


SUB 


#2, RO 


MOVB 


LHIRBC(R1),R2 


BNE 


5* 


MOVB 


VNCXOF, R2 


CMP 


R2, RO 



c 
I 

i 

i 
f 

I 
i 

i 

i 
i 
i 



TSINIT - 


— TSX s 


tartup initializ 


ALCSLO - 


— Allocate silo 


buffers 


58 


013666 


101401 




59 


013670 


010002 




60 


013672 


110261 


OOOOOOG 


61 


013676 


116102 


00000 10 


62 


013702 


001002 




63 


013704 


113702 


OOOOOOG 


64 


013710 


020200 




65 


013712 


101401 




66 


013714 


010002 




67 


013716 


110261 


00000 IG 


68 








69 








70 








71 


013722 


162701 


000002 


72 


013726 


003302 




73 








74 








75 








76 


013730 


005205 




77 


013732 


042705 


000001 


78 


013736 


012602 




79 


013740 


012601 




80 


013742 


000207 





MACRO V05. 05 
for lines 



6*: 
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7«: 



BLQS 

MOV 

MOVE 

MOVE 

BNE 

MOVE 

CMP 

BLOS 

MOV 

MOVE 



9«; 



SUB 
EOT 

Finished 



INC 
BIC 
MOV 
MOV 
RETURN 



6* 

RO, 

R2, 

LHI 

7* 

VNC 

R2 

10* 

RO, 



10*: 

» Do the next line 



R2 

LHIRBC(Rl) 
RBC+1<R1)> R2 

XON, R2 
RO 

R2 
LHIRBC+KRl) 



#2, Rl 
1* 



R5 

#1,R5 
(SP)+, R2 
<SP)+, Rl 



Br if yes 

No^ use size/2-2 

Set # of chars when XOFF sent 

Get specified size for XON point 

Br if a value was specified 

Try default 

is specified value ok? 

Br if ok 

No» use size/2~2 

Set # of chars when XON sent 



i Get next line index number 
J Loop if more to do 



/Force R5 to be even 



i 
i 

i 

i 
c 



i 
i 



TSINIT 
ALBFX - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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- Allocate buffers in extended memory region 



. SBTTL ALBFX 



Allocate buffers in extended memory region 



013744 
013746 
013750 



013752 
013756 
013764 
013766 
013772 
013774 
014000 
014002 
014006 
014012 
014016 
014022 
014026 
014030 
014034 
014036 
014042 
014046 
014050 
014052 
014056 
014062 
014066 
014072 
014076 
014102 
014104 
014110 
014114 



014116 
014122 
014124 
014132 
014140 
014144 
014150 



010146 
010246 
010346 



012701 
032761 
001047 
020127 
103403 
020127 
101441 
010561 
012702 
010261 
016100 
010061 
060002 
010261 
010003 
062703 
072327 
060302 
060300 
010261 
066100 
066102 
010261 
062700 
072027 
060005 
062701 
020127 
101720 



005737 
001451 
013737 
013737 
010537 
012701 
070137 



ALBFX is called to allocate space for buffers that are not constrained 
to fit in the 40Kb region that TSX-Plus occupies. 

Inputs: 
R5 = 64-Byte address of base of free memory region. 

Outputs: 
R5 = Address above top of buffers allocated. 



ALBFX: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2> -<SP) 
R3, -<SP) 



000002 

OOOOOOG OOOOOOG 3*: 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

000007 

177775 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000077 

177772 

000002 
OOOOOOG 



1*: 



?*: 



Allocate character buffers for all lines 

Note: Character buffer space will be accessed by mapping through PAR 6. 

GET 1ST JOB INDEX NUMBER 

IS THIS LINE INSTALLED? 

BR IF NOT — DON'T ALLOCATE ANY BUFFER SPACE 

IS THIS A DETACHED JOB LINE? 

BR IF NOT 

DETACHED JOB LINE? 

BR IF DETACHED JOB — DON'T ALLOCATE BUFFERS 

SET PHYSICAL MEMORY PAR OFFSET FOR BUFFER 

GET VIRTUAL MEMORY ADDRESS FOR BASE OF PAR6 

INPUT BUFFER STARTS AT BASE OF PAR6 REGION 

GET # BYTES FOR INPUT BUFFER 

SET # FREE BYTES IN INPUT BUFFER 

ADVANCE VIRTUAL ADDRESS 

POINTS PAST END OF INPUT BUFFER 

Get # bytes in input buffer 

Bound up to multiple of 8 

Get # bytes needed in activation-flag buffer 

Reserve space for activation-flag buffer 

Accumulate total buffer space 

POINTS TO START OF OUTPUT BUFFER AREA 

ACCUMULATE # BYTES IN BOTH BUFFERS 

ADVANCE VIRTUAL ADDRESS COUNTER 

SAVE ADDRESS OF END OF OUTPUT BUFFER 

BOUND UP TO MULTIPLE OF 64 BYTES 

CONVERT TO # 64-BYTE BLOCKS ALLOCATED 

ADVANCE PHYSICAL MEMORY PAR ADDRESS 

ADVANCE LINE NUMBER 

HAVE WE DONE ALL LINES YET? 

BR IF MORE TO DO 

Allocate space for shared file record locking data structures 



MOV 


#2, Rl 


BIT 


#*DEAD, LSW3<R1) 


BNE 


2* 


CMP 


R 1 , #FSTDL 


BLO 


1* 


CMP 


R1<#LSTDL 


BLOS 


2« 


MOV 


R5, LTTPAR<R1) 


MOV 


#VPAR6, R2 


MOV 


R2, LINBUF(Rl) 


MOV 


LINSIZ<R1),R0 


MOV 


RO, LINSPC<R1) 


ADD 


RO, R2 


MOV 


R2, LINEND(Rl) 


MOV 


RO, R3 


ADD 


#7, R3 


ASH 


#-3, R3 


ADD 


R3, R2 


ADD 


R3, RO 


MOV 


R2, LOTBUF<RJ) 


ADD 


L0TSIZ<R1),R0 


ADD 


L0TSIZ<R1),R2 


MOV 


R2, L0TEND<R1) 


ADD 


#77, RO 


ASH 


#-6, RO 


ADD 


RO, R5 


ADD 


#2, Rl 


CMP 


R 1 , #LSTSL 


BLOS 


3* 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



TST VMXSF 

BEQ 5* 

MOV VNUMDC, NUMDCD 

MOV VMXSFC, NUMCDB 

MOV R5, LOKMEM 

MOV #FF««SZ.R1 

MUL VMXSF, Rl 



Shared file support wanted'? 

Br if not 

Set number of data cache blocks 

Set number of free CDB's 

Set phys address of base of area 

Size of an FDB 

Times number of FDB's 



( 
I 
f 

I 

i 
f 

i 

i 

( 

I 

i 

i 

i 

I 

€ 
€ 

C 

t 
I 
I 



TSINIT — 
ALBFX — 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
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014154 
014160 
014164 
014166 
014172 
014176 
014200 
014204 
014210 
014212 
014216 
014222 
1 4226 
014230 
014234 
014240 
014244 



014246 
014252 
014254 
014260 
014262 
014266 
014272 
014276 
014300 
014304 



014306 
014312 
014314 
014316 
014322 
014326 
014332 
014336 



014340 
014342 
014344 
014346 



062701 
013703 
006303 
062703 
070337 
060301 
012703 
070337 
060301 
062701 
072127 
042701 
060105 
010537 
013701 
070127 
060105 



105737 
001415 
013701 
001412 
010561 
113703 
072327 
060305 
016101 
001366 



013701 
001412 
006201 
010137 
010537 
062701 
072127 
060105 



012603 
012602 
012601 
000207 



OOOOOOC 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000100 
177772 
176000 

OOOOOOG 
OOOOOOG 
000010 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000003 

OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
000037 
177773 



ADD 
MOV 
ASL 
ADD 
MUL 
ADD 
MOV 
MUL 
ADD 
ADD 
ASH 
BIC 
ADD 
MOV 
MOV 
MUL 
ADD 



Allocate space for mapped I/O buffers 



#<NLINES#FW**S2:> 


Rl i Space needed 


VMLBLKi R3 


Max blocks a CDB 


R3 


Two bytes per en 


#FC*LBN, R3 


Add base size of 


VMXSFC, R3 


Times number of 


R3, Rl 


Accumulate space 


#DC*«SZ, R3 


Size of a data c 


VNUMDC, R3 


Times number of 


R3, Rl 


Reserve space fo 


#64. , Rl 


Bound up to 64 b 


#-6, Rl 


Convert to # 64 


#176000. Rl 


Clear sign exten 


Ri,R5 


Reserve space fo 


R5, LOKCSH 


Save pointer to 


VNUMDCRl 


# shared-file da 


#8. ,R1 


8 64-byte blocks 


Rl, R5 


Reserve space fo 



for uiait blocks 

may hold locked 
try 

a CDB 
shared file channels 

needed 
ache descriptor 
data cache entries 
r data cache descriptors 
yte unit 
byte units 
sion 

r data structures 
start of cache buffer avea 
ta cache blocks wanted 

each <512 bytes each) 
V data cache buffers 



5$: 



6$: 



Are any mapped I/O buffers needed? 

Br if not 

Point to 1st mapped I/O control block 

Br if no more buffers needed 

Set address of base of buffer 

Get # blocks for buffer 

Convert to # 64-byte pages 

Allocate space for buffer 

Get address of next control block 

Loop if more to allocate 

Allocate space for performance monitor data buffer if it is wanted. 



TSTB 


MIOFLG 


BE« 


7* 


MOV 


MIOBHD. Rl 


BEQ 


7* 


MOV 


R5, MI*SBF<R.l) 


MOVB 


VMI0SZ,R3 


ASH 


#3, R3 


ADD 


R3, R5 


MOV 


MI*LNK(R1),R1 


BNE 


6* 



7*: 



MOV 
BEQ 
ASR 
MOV 
MOV 
ADD 
ASH 
ADD 

Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



VPMSIZ, Rl 
9* 
Rl 

R1,PMCELS 
R5, PMPAR 
#37, Rl 
#-5, Rl 
R1,R5 



<SP)+, R3 
(SP)+, R2 
<SP)+, Rl 



DID USER GEN IN PERFORMANCE MONITOR FEATURE? 

BR IF NOT 

CONVERT BYTES TO WORDS 

SET INTO CELL IN TSEXEC 

SET BASE ADDRESS OF PM BUFFER 

BOUND SIZE UP TO 64-BYTE MULTIPLE 

CONVERT WORDS TO # 64-BYTE BLOCKS 

ADVANCE FREE MEMORY POINTER 



I 
f 



< 

c 
I 
i 
c 

i 
t 

i 
i 



f 
i 

f 
t 



TSINIT 
OPNKMN 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
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37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
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51 
52 
53 
54 
55 
56 
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Open channel to TSKMON 

. SBTTL OPNKMN — Open channel to TSKHON 



i 
i 



014350 010246 



014352 

014372 103517 



014374 013702 000152' 
014400 

014434 016200 000050 

014440 062700 000003 

014444 042700 000001 

014450 010037 OOOOOOG 

014454 162700 OOOOOOG 

014460 010037 OOOOOOG 

014464 062700 000777 

014470 000241 

014472 006000 

014474 000300 

014476 042700 177400 

014502 063700 OOOOOOG 

014506 010037 OOOOOOG 

014512 016237 000042 OOOOOOG 

014520 016237 000040 OOOOOOG 



014526 016237 000300 OOOOOOG 



014534 012700 OOOOOOG 
014540 013702 000072' 



OPNKMN is called to open an I/O channel to TSKMON SAV file and to 
set up information about TSKMON. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
KMNCHN = Saved status of channel to use to access TSKMON SAV file. 
KMNTOP = Top of memory address for TSKMON. 
KMNHI = Top address of TSKMON - KMNBAS. 

KMNPQS = Number of 256™uJord memory pages needed for TSKMON & contexv area 
KMNSTK = Address of stack to use while TSKMON running. 
KMNSTR = Starting addrpSE of TSKMON. 

OPNKMN: MOV R2, -(SP) 

Lookup TSKMON file. 

.LOOKUP #AREA, #1>#KMNNAM ; TRY TO FILE KMON SAV FILE 
BCS 9* ; BR IF NOT THERE 

Read block O of save file and extract some information. 

MOV WRKBUF,R2 i Point to work buffer 

. READW #AREA, #1,R2, #256. ,#0 .^ READ BLOCK OF SAV FILE 

Determine size of kmon 

GET TOP ADDRESS OF KMON 
BOUND UP TO NEXT WORD 
FORCE EVEN 

lemory pages needed while kmon running. 
BASE ADDRESS OF KMON 
TOP OF TSKMON - KMNBAS 
BOUND UP TO PAGE SIZE 

i CVT TO # WORDS 
; CVT TO # PAGES 

i # PAGES NEEDED FOR JOB CONTEXT AREA 
;# 256-ujd pages needed for kmon + context area 
Detprmine Kmon stack pointer. 

MOV 42(R2). KMNSTK ; INITIAL STACK POINTER FOR KMON 
Determine Kmon starting address. 

MOV 40<R2>, KMNSTR i STARTING ADDRESS 

Set up demo-system time limit 

(If this is a demo version of TSX-Plus* the number of minutes the system 
is to run before it crashes is stored in location 300 of TSKMON) 

MOV 300(R2),DTLX i SET DEMO TIME-LIMIT 

Now save status of channel so we can do a reopen when we need kmon. 



MOV 


50<R2),R0 


ADD 


#3, RO 


BIC 


#1, RO 


MOV 


RO, KMNTOP 


mine 


number of 256 


SUB 


#KMNBAS, RO 


MOV 


RO, KMNHI 


ADD 


#511. ,R0 


CLC 




ROR 


RO 


SWAB 


RO 


BIC 


#•-^0377, RO 


ADD 


CXTPAG, RO 


MOV 


RO, KMNPGS 



c 
I 

f 

€ 

i 

I 
I 
€ 

i 
i 



MOV #KMNCHN.. RO 
MOV KMNNAM, R2 



j GET KMON CHANNEL SAVE AREA 
i GET KMON DEVICE NAME 



4 



t 
t 
I 

( 
{ 

i 

i 
i 



TSINIT — TSX startup initializ MACRO 
QFWKMN — Open channel to TSKMON 



58 014544 

59 

60 

61 

62 014550 

63 014570 

64 014572 

65 014576 

66 014602 
67 

68 
69 

70 014606 

71 014610 
72 

73 
74 

75 014612 

76 014620 

77 014626 
78 

79 

eo 

81 014632 

82 014640 
S3 014646 



004737 027134'- 



103410 
012700 



OOOOOOG 



013702 000102' 
004737 027134' 



000207 



000137 004102 



000137 004102' 
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CALL SETCHN i SAVE CHANNEL STATUS 

Lookup CCL. SAV and save channel status for it. 

LOOKUP SY: CCL. SAV 
BR IF CAN'T FIND CCL 
CHANNEL SAVE AREA 
DEVICE NAME 
SAVE CHANNEL STATUS 



10*: 



. LOOKUP 


#AREA, #1, #CCLr 


BCS 


8* 


MOV 


#CCLSAV, RO 


MOV 


CCLNAM, R2 


CALL 


SETCHN 


Finished 




MOV 


<SP)+, R2 


RETURN 





Error: 



We could not find SY: CCL. SAV 



8$: 



.PRINT #TSXHD 
.PRINT #NOCCL 
JMP INISTP 



i PRINT ERROR MESSAGE 
i ABORT INITIALIZATION 



Error: We could not locate TSKMON SAV file. 

9*; PRINT #TSXHO ; PRINT ERROR MESSAGE 
.PRINT #NOKMON 

JMP INISTP ; ABORT INITIALIZATION 



f 

i 
t 

i 
i 

i 

€ 

€ 
I 

( 



4 



f 



TSINIT - 


— TSX s 


tartup initializ 


CLINIT - 


— Initialize CL 


handler 


1 
2 








3 








4 








5 








6 








7 








e 








9 








10 








11 


014652 


010146 




12 


014654 


010246 




13 


014656 


010346 




14 








15 








16 








17 


014660 


005003 




18 


014662 


012701 


OOOOOOC 


19 








20 








21 








22 








23 


014666 


016102 


0000000 


24 


014672 


001416 




25 


014674 


012762 


OOOOOOG 


26 


014702 


010162 


0000000 


27 


014706 


005762 


OOOOOOG 


28 


014712 


001006 




29 


014714 


005762 


OOOOOOG 


30 


014720 


001003 




31 


014722 


005061 


OOOOOOG 


32 


014726 


000472 




33 








34 








35 








36 


014730 


010561 


OOOOOOG 


37 


014734 


010561 


OOOOOOG 


38 


014740 


010561 


OOOOOOG 


39 


014744 


012700 


OOOOOOG 


40 


014750 


005702 




41 


014752 


001402 




42 


014754 


016200 


OOOOOOG 


43 


014760 


010061 


OOOOOOG 


44 


014764 


010061 


OOOOOOG 


45 


014770 


060005 




46 


014772 


010561 


OOOOOOG 


47 


014776 


060003 




48 








49 








50 








51 


015000 


010561 


OOOOOOG 


52 


015004 


005061 


OOOOOOG 


53 


015010 


062705 


00000 IG 


54 


015014 


062703 


00000 IG 


55 








56 








57 
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. SBTTL CLINIT — Initialize CL handler 

Perform initialization for CL (Communication Line) handler 

Inputs: 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of new start of free memory srsa. 



CLINIT: 


MOV 


R 1 , - ( SP ) 




MOV 


R2, -(SP) 




MOV 


R3, -(3P) 



Initialize tables for earh CL unit 

CLR R3 I Accumulate ring buffer sizes in R3 

MOV #2*<CLTDTL •!>> Rl; Get index # of last CL unit 



See if this CL unit is connected to hardware 
connected later to a time-sharing line. 



or is free to be 



1« 



MOV CL*LIX(R1 ). R2 

BECi 5* 

MOV #*SXON. LSW10(R2) 

MOV R 1 , LCLUNT ( R2 ) 

TST RSR(R2) 

BNE 5* 

TST LMXNUM(R2) 

BNE 5* 

CLR CL*EPS(R1) 

BR 4$ 



unit associated with a line? 



Is this CL 

Br if not 

Send XON when 

Associate the 

Does this 

Br if yes 

Is this a mux line? 

Br if yes 

Say no endstring buffer 

Line is not genned in 



we start the line 

CL unit with this 

unit have a specified 



1 ine 

RSR addr? 



Allocate and set up pointers for the output ring buffers 



5*: 



6*: 



MOV R5, CL*0RB(R1) 

MOV R5, CL*0RP(R1) 

MOV R5, CL*0RG(R1) 

MOV #CL0RSZ, RO 

TST R2 

BEQ 6* 

MOV L0TSIZ(R2), RO 

MOV RO, CL*0RA(R1) 

MOV RO, CL*0RS(R1) 

ADD RO, R5 

MOV R5. CL«0RE(R1) 

ADD RO, R3 



Start of output ring buffer 

Input character pointer 

Next available character pointer 

Get default output ring buffer size 

Is this CL unit connected to a line? 

Br if not 

Get size of output ring buffer 

Set size of output ring buffer 

Available space in ring buffer 

Point beyond end of ring buffer 

Address past end of ring buffer 

Accumulate size of output ring buffers 



Allocate space for end-of-file string buffer 



MOV 
CLR 

ADD 
ADD 



R5, CL«EPS(R1) 
CL*EPP(R1 ) 
#<CLE0FS+1>, R5 
#<CLE0FS+1>, R3 



i Set pointer to end-of-file string buffer 
; No string to print yet 
> Reserve space for buffer 
j Accumulate buffer space 



4 
( 
I 
( 

i 



Initialize end-of-file form-feed count 



I 
t 

i 
t 
I 

€ 

c 

i 
t 
t 
I 



( 
i 
I 

i 

• f 



I ( 
I 
< 

» € 

i 

i 

i 

i 
i 



> I 



I 



I 



t 



( 



TSINIT - 


— TSX s 


tartup initializ 


MACRO VOS 


CLINIT - 


— Initialize CL 


hand ler 




§8 


015020 


005061 


0000000 




59 








i 


60 








i 


61 








: 


62 


015024 


012700 


0000000 




63 


015030 


005702 






64 


015032 


001421 






65 


015034 


016202 


0000000 




66 


015040 


032702 


OOOOOOG 




67 


015044 


001402 






68 


015046 


052700 


0000000 




69 


015052 


032702 


oooooos 


tr 


70 


015056 


001402 






71 


015060 


052700 


OOOOOOG 




72 


015064 


032702 


OOOOOOG 


c 


73 


015070 


001402 






74 


015072 


052700 


OOOOOOG 




75 


015076 


010061 


OOOOOOG 


7 


76 










77 










78 










79 


015102 


012761 


000102 


OOOOOOG 


80 










81 










82 










S3 


015110 


005061 


OOOOOOG 




84 










85 










86 










87 


015114 


162701 


000002 


A 


88 


015120 


002262 






89 










90 










91 










92 


015122 


062737 


000002 


OOOOOOG 


93 


015130 


013701 


OOOOOOG 




94 


015134 


010137 


OOOOOOG 




95 


015140 


012761 


012240 


OOOOOOG 


96 


015146 


012761 


OOOOOOG 


OOOOOOG 


97 


015154 


012761 


OOOOOOC 


OOOOOOG 


98 


015162 


005061 


OOOOOOG 




99 


015166 


012761 


000006G 


OOOOOOG 


100 


015174 


062703 


OOOOOOG 




101 


015200 


062703 


OOOOOOC 




102 


015204 


010361 


OOOOOOG 




103 


015210 


005205 






104 


015212 


042705 


000001 




105 










106 










107 










108 


015216 


022727 


OOOOOOG 


000010 


109 


015224 


101430 






110 


015226 


062737 


000002 


OOOOOOG 


111 


015234 


013701 


OOOOOOG 




112 


015240 


010137 


OOOOOOG 




113 


015244 


012761 


013630 


OOOOOOG 


114 


015252 


012761 


OOOOOOG 


OOOOOOG 
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CLR CL*EPN<Ri) 

Initialize option word 

MOV #<CO«DEF>, RO 

TST R2 

BEQ 7* 

MOV ILSW2<R2),R2 

BIT #*TAB,R2 

BEQ 2* 

BIS #CO*TAB,RO 
2«: BIT #*FORM, R2 

BEQ 3* 

BIS #CO*FF, RO 
3$: BIT #«SBIT, R2 

BEQ 7* 

BIS #C0*8BT, RO 
7*: MOV RO, CL*0PT<R1 ) 

Initialize page length 

MOV #66. , CL*LEN(R1) 

Initialize status flaqs 
CLR CL«STA<Ri) 

Do next line 



; Init tNDi-'AGE=0 



j Get default option flags 

:l5 this CL unit connected with a line? 

; Br if not 

i Get line options 

jDoes hardware support tabs? 

; Br if not 

.: Set hardware-tab flag 

iDoes hardware support form feeds? 

j Br if not 

i Set hardware-f orm-f Bed flag 

; Does hardware want 8 bit support?" 

; Br if not 

j Enable 8 bit support for CL line 

i Set options for this CL line 



4*: 



SUB 
BGE 



#2, R 1 
1« 



Say page length = 66 lines 



Initialize status flags 



Get index # of next unit 

Loop if more units to initialize 



Make a device table entry for "CL" device 

ADD #2, NUMDEV » One more device 

MOV NUMDEV. Rl ; Get device table index 

MOV R1,CLDEVX ; Remember index number of CL device 

MOV #R50CL, PNAME<R1) i Set device name ("CL") 

MOV #CLSTS, DVSTAT<R1 ) i Set dev status flags 

MOV #<DX*NCA!DX«NMT!DX*NRD>, DVFLAG<R1) ; Device info flags 

CLR DEVSIZ<R1) iClear device size 

MOV #CLHEAD+6, HANENT<R1 ) i Set handler entry point <4th word) 

ADD #CLSIZE. R3 ; Get size of handler 

ADD #«CLT0TL«-46. >+<NI0L«32. », R3 J Add size of tables in TSGEN 

MOV R3, HANSIZtRl ) /Set size of handler 

INC R5 iMake sure free-memory pointer is even 

BIC #1,R5 

Make a device table entry for CI if there are more than 8 CL units 



CMP 

BLOS 

ADD 

MOV 

MOV 

MOV 

MOV 



#CLTOTL, #8. 

9* 

#2, NUMDEV 

NUMDEV, Rl 

Rl, CIDEVX 



; Are there more than S CL units? 

; Br if not — Don't need CI 

) One more device 

iGet device table index 

/Remember index number of CL device 



< 
f 

i 
I 
i 

i 
c 

I 
( 
( 

I 

< 



#R50C1. PNAME(R1 ) i Set device name ("CI") 
#CLSTS, DVSTAT(Rl) i Set dev status flags 



I 

i 



I 

I 
t 

I 

< 
( 

i 
t 
i 



T3INIT — 
CLINIT — 

i 15 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
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Initialize CL handler 



Tuesday 17-Jan-89 13: 55 Page 41-2 



1 5260 
015266 
015272 
015300 



015306 
015310 
015312 
015314 



04 *^-» f 4 
1 =; / Q A 

005061 

012761 

012761 



012603 
012602 
012601 
000207 



OOOOOOC 
OOOOOOG 
000006G 
000004 



OOOOOOG 
OOOOOOG 



HQV 
CLR 
MOV 
MOV 

Fini shed 



9«: 



MOV 
MOV 
MOV 
RETURN 



#<DX*FxiCAiDX*N'MT:DX*NRD>, DVFLAG<R1 ) ; Device info flags 
DEVSIKRl) ; Clear device size 

#CLHEAD+6. HANENT(Rl) ; Set handler entry point <4th word) 
#4. , HANSIZ(R1 > iSet size of handler 



<SP)+, R3 
<SP)+, R2 
(SP)+, Rl 



t 
I 

f 



I 

( 

i 

i 

i 

i 

i 
€ 
i 
€ 

i 



i 
t 
f 



I 
i 
( 
I 
i 
i 

• f 
t 

' f 
I 
f 
I 
f 

i 

i 
i 

> c 

I 

, i 
I 

I 

< 
c 



010246 
010346 



005037 OOOOOOG 



013737 OOOOOOG 000220' 



INDINI: 



TSINIT — TSX startup initializ MACRO V05. 05 
INDINI — Initialize IND program 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 01 

13 01 
14 

15 

16 

17 01 

18 

19 

20 

21 01 

22 01 

23 01 

24 01 
25 
26 
27 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 
46 
47 
48 
49 

50 01 

51 01 

52 01 
53 

54 
55 

56 01 

57 01 
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iits ! iL INDINI 



Initialize IND program 



Perform initialization for IND program. 



Outputs: 
If IND is 
INDSAV = 
INDDBL = 



available, the following information is set up: 

5 word . SAVESTATUS block for SY: IND. SAV file 

Lowest block # within IND. SAV file of data overlay segment. 

INDDBS = Number of blocks used for data overlay segment. 

INDTSV = 5 word .SAVESTATUS block for SY: TSXIND. TSX file 



5316 
5320 



532c 



5326 
5334 
5354 
5356 



5362 
5366 
5422 
5426 
5464 
5470 
5472 
5474 
5476 
5500 
5504 
5506 
5510 
5514 
5516 
5522 
5524 
5530 



MOV 

fiOV 



R2, ~(SP) 
h3, -(SP) 



103002 
000137 



013703 

016302 

162702 
060302 
011203 
020312 
001003 
062702 
000773 
005722 
012237 
011202 
062702 
000302 
042702 
010237 



016010' 

000152' 

000064 

001000 



Determine if IND support is wanted 

CLR INDSAV i ASSUME IND SUPPORT NOT WANTED 

Lookup SY: IND. SAV file 

MOV SYNAME, INDNAM i LOOK UP IND ON BOOT DEVICE 

LOOKUP #AREA, #1.#INDNAM ; TRY TO FIND SY: IND. SAV 
BCC 4* ; BR IF FOUND IND 

JMP 9* i IF CAN'T FIND IND, THEN NO IND SUPPORT 

Set up information about IND overlay data segment 



4*: 



MOV WRKBUF, R3 

. READW #AREA, #1, R3, #256 

MOV 64<R3),R2 

.READW #AREA, #1,R3, #256 



5*: 



000006 

OOOOOOG 

000377 

177400 
OOOOOOG 



6«: 



SUB 


#1000, R2 


ADD 


R3, R2 


MOV 


<R2),R3 


CMP 


R3, <R2) 


BNE 


6* 


ADD 


#6, R2 


BR 


5* 


TST 


<R2) + 


MOV 


<R2)+, INDDBL 


MOV 


<R2),R2 


ADD 


#255. , R2 


SWAB 


R2 


BIC 


#"C<377>. R2 


MOV 


R2, INDDBS 



5534 
5540 
5544 



5550 
5554 



012700 
013702 
004737 



013703 
070327 



OOOOOOG 
000220 ' 
027134' 



OOOOOOG 
OOOOOOG 



Get pointer to work buffer 

, #0 ; READ IN BLOCK OF SAV FILE 

GET POINTER TO OVERLAY TABLE 

,#1 i READ IN BLOCK 1 WITH OVERLAY TABLE 

GET ADDRESS OF OVERLAY TABLE REL TO BLOCK 1 

ADD BASE ADDRESS WHERE BLOCK 1 DATA IS 

Get virtual address of segment 

Search for 1st segment with different addr 

Br if found it (this is the data segment) 

Point to overlay table entry for next seg 

Point to word with block # if SAV file 
GET BLOCK # IN SAV FILE OF DATA OVERLAY 
GET # OF WORDS IN OVERLAY SEGMENT 
ROUND UP TO NEXT BLOCK 
CONVERT # WORDS TO # BLOCKS 

SAVE # BLOCKS USED FOR DATA OVERLAY 



Do .SAVESTATUS on channel opened to IND. SAV file so that we 
can do a reopen to access it from KMON. 

GET ADDRESS OF SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE STATUS 

Determine how much space is needed for SY: TSXIND. TSX swap file 



MOV 


#INDSAV, RO 


MOV 


INDNAM, R2 


CALL 


SETCHN 



MOV INDDBS, R3 
MUL #<LSTSL/2>, R3 



J GET # BLOCKS NEEDED PER JOB 
i TIMES TOTAL NUMBER OF JOBS 



I 
< 
f 
f 
I 
I 
I 
< 

i 
I 
f 

i 
I 

i 

t 

I 

i 
i 



( 
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I 

i 
i 
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c 
i 
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I 
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58 








59 








60 








61 








62 


015560 


013700 


OOOOOOG 


63 


015564 


004737 


027514' 


64 


015570 


103522 




65 








66 








67 








68 


015572 






69 


015612 


103415 




70 


015614 


020003 




71 


015616 


001462 




72 


015620 






73 


015626 






74 








75 








76 








77 








78 


015646 






79 


015672 


103451 




SO 


015674 


010302 




81 


015676 


005302 




82 


015700 






S3 


015736 






84 


015744 






85 








86 








87 








S8 


015764 


012700 


OOOOOOG 


89 


015770 


013702 


OOOOOOG 


90 


015774 


004737 


027134' 


91 


016000 






92 








93 








94 








95 


016010 


012603 




96 


016012 


012602 




97 


016014 


000207 




98 








99 








100 








101 


016016 






102 


016024 






103 


016032 


004737 


011350' 


104 








105 








106 








107 


016036 


010001 




108 


016040 






109 


016046 






110 


016054 


004737 


0U376' 
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Load Rt-11 device handler for ind swap file. 



MOV 

CALL 

BCS 



INDFIL, RO 

RTFTCH 

11* 



jGet name of the device 

» Try to fetch the RT-11 device handler 

J Br if error on handler fetch 



See if TSXIND file already exists 

.LOOKUP #AREA, #1,#INDFIL ; DOES SY: TSXIND. TSX FILE EXIST NOW? 



BR IF NOT 

IS IT OF THE CORRECT SIZE? 

BR IF YES 

FILE IS OF WRONG SIZE 

DELETE OLD FILE 



BCS 1* 

CliP R0» R3 

BEQ 2* 

. PURGE #1 

.DELETE #AREA, #1, #INDFIL 

File does not now exist 
Create new file 



ENTER #AREA, #1,«INDFIL> R3 ; CREATE NEW TSXIND FILE 

i BR IF ERROR ON CREATE 
; # BLOCKS IN FILE 
i GET # OF LAST BLOCK IN FILE 
.WRITW #AREA, #1, WRKBUF,#256. > R2 ; WRITE TO LAST BLOCK OF FILE 
.CLOSE #1 iNOW CLOSE THE FILE 

LOOKUP #AREA,#1..# INDFIL i REOPEN TSXIND FILE WITH LOOKUP 



BCS 


10* 


MOV 


R3. R2 


DEC 


R2 



Do . SAVESTATUS for SY: TSXIND. TSX file 



?*: 



MOV tINDTSV, RO 
MOV INDFIL, R2 
CALL SETCHN 
. RELEAS #INDFIL 



POINT TO SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE INFO 
Release device handler 



Finished 



9*: 



MOV 
MOV 
RETURN 



(SP)+, R3 
(SP)+, R2 



Error occurred while opening SY: TSXIND. TSX file 

10*: .PRINT #TSXHD ; Print error message 

PRINT #INDOPN 
CALL SPNEED > Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

PRINT #TSXHD 

.PRINT #INDOPN 

CALL BADDEV 



; Save device name 
; Print error message 

;Print invalid device specification 



I 

i 
i 
i 
i 
I 
i 
i 
i 

i 
I 
i 
t 
i 
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7 
8 
9 
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31 
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016060 
016062 



016064 
016070 
016072 
016076 



016100 
016104 
016110 
016112 
016116 
016120 
016124 



010246 
010346 



105737 
00 1 536 
013702 
001533 



012700 
062700 
070200 
062703 
005502 
071227 
010237 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

000777G 

001000 
OOOOOOG 



016130 070227 OOOOOOC 



016134 
016140 
016144 



013700 
004737 

103523 



OOOOOOG 
027514' 



016146 
016166 
016170 
016172 
016174 
016202 



016222 
016246 
016250 
016252 



103415 
020003 
001446 



103452 
005303 



3BTTL UCLINI — initialize TSXUCL data file 



UCLINI is called to initialize the TSXUCL data file which is used 
to store user-defined commands. 



Outputs: 
TSXUCL data file is initialized. 
UCLBLK = Number of blocks in data file for each job. 



UCLINI: MOV 
MOV 



R2, ~(SP) 
R3. -(SP) 



Determine if TSXUCL data file is needed 



; Is TSXUCL being used at allT' 
; Br if not 

i Get maximum number of commands 
; Br if none allowed 



Determine number of blocks needed in data file for each job 



TSTB 


VU*CL 


BEQ 


9* 


MOV 


VUCLMC, R2 


BEQ 


9* 



MOV #UK**SZ» RO 

ADD #US««SZ. RO 

MUL RO, R2 

ADD #UC*«SZ+511. , R3 

ADC R2 

DIV #512. ,R2 

MOV R2. UCLBLK 



Size of each keyword descriptor 

Size of each command string descriptor 

Compute total # bytes for keywords-t-cominands 

Add space for control information ?< round up 

Propogate carry 

Convert to # of blocks needed 

Save number of blocks needed per job 



Multiply by number of jobs to get total file size 

MUL #<LSTSL/2>, R2 J Times total number of jobs 
Load Rt-11 device handler for ind swap file. 



MOV 

CALL 

BCS 



UCLDAT, RO 
RTFTCH 

11* 



i Get name of the device 

; Try to fetch the RT-11 device handler 

; Br if error on handler fetch 



1*: 



The total required file size is now in R3. 
See if the file already exists. 

.LOOKUP #AREA, #1, #UCLDAT ; See if the file exists now 
BCS 1* ; Br if file does not exist 

CMP R0> R3 < Is existing file of correct size? 

BEQ 2* i Br if yes — use the old file 

.PURGE #1 j Purge the channel 

DELETE #ARE A, #1, #UC:LDAT; Delete the old file 

Create a new data file 

.ENTER #AREA> #1>#UCLDAT, R3 > Create new data file 

BCS 10* i Br if error creating the file 

DEC R3 iGet # of last block in the file 

. WRITW #AREA> #1, WRKBUF,#256. , R3 i Write to last block of file 

Translate possible logical device name to physical name and close 



c 
f 
c 



TSINIT - 


— TSX s 


tartup initializ 


UCLINI - 


— Initialize TSXUCL dat 


58 








59 








60 


016310 






61 


016330 


013702 


000032 ' 


62 


016334 


063702 


000030 ' 


63 


016340 


062702 


000036 


64 


016344 


010237 


OOOOOOG 


65 


016350 






66 


016356 






67 








68 








69 








70 


016366 


012603 




71 


016370 


012602 




72 


016372 


000207 




73 








74 








75 








76 


016374 






77 


016402 






78 


016410 


004737 


011350' 


79 








80 








81 








82 


016414 


OlOOOi 




83 


016416 






84 


016424 






85 


016432 


004737 


011376' 
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<Phy5ical name is needed for TSXUCL program. > 



>*: 



. CSTAT #AREA, #1, #NFSBLK 



9$: 



MOV 


<NFSBLK+12>, R2 


ADD 


<NFSBLK+10>. R2 


ADD 


#^R 0, R2 


MOV 


R2, UCLDAT 


. CLOSE 


#1 


. RELEAS 


#UCLDAT 


Finished 




MOV 


<3P)+,R3 


MOV 


<SP)+, R2 


RETURN 





;eET CHANNEL STATUS INFORMATION 
FETCH DEVICE NAME IN RAD50 
ADD IN DEVICE UNIT NUMBER 
CONVERT UNIT NUMBER TO RAD50 
SET PHYSICAL NAME BACK INTO TSGEN CELL 
Close the file 
Release device handler 



Error creating the data file 



10*: .PRINT #TSXHD 
.PRINT #UCLOPN 
CALL SPNEED 



; Print error message 

; Print info about number of blocks needed 
Error: Invalid device specification. 



11*: MOV R0>R1 

.PRINT #TSXHD 

.PRINT #UCLOPN 

CALL BADDEV 



> Save device name 

i Print error message 

iPrint invalid device specification 



TSINIT - 
MEMINI - 

i 
2 
3 
4 
5 
6 
7 



TSX startup initializ MACRO V05. 05 
- Initialize memory management 
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SB ! I L MEMINI — Initialize memoi^y management 



Initialize memory management registers for a i-to-1 mapping. 
But leave memory management turned off. 



016436 010146 

016440 010246 

8 016442 010346 

9 016444 010446 
10 016446 010546 
11 
12 
13 

14 016450 012700 

15 016454 012701 

16 016460 012702 

17 016464 012703 

18 016470 012704 

19 016474 005005 

20 016476 010520 

21 016500 010521 

22 016SO2 012722 

23 016506 012723 

24 016512 062705 

25 016516 077411 
26 

27 

28 

29 016520 012737 0000000 OOOOOOG 

30 

31 

32 

33 016526 012605 

34 016530 012604 

35 016532 012603 

36 016534 012602 

37 016536 012601 

38 016540 000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000010 



077406 
077406 
000200 



MEMINI: 


MOV 


R1,-<SP) 






MOV 


R2, -<SP) 






MOV 


R3, -<SP) 






MOV 


R4, -(SP) 






MOV 


R5, -<3P) 




i Init 


ial i 2e 


all pages for a 1- 


to-1 mapping. 


12*: 


MOV 


#KPARO, RO 


Kernel mode PAR 




MOV 


#UPARO, Rl 


User mode PAR 




MOV 


#KPDRO, R2 


Kernel mode PDR 




MOV 


#UPDRO, R3 


User mode PDR 




MOV 


#8. , R4 


Initialize 8 pages 




CLR 


R5 


Set initial PAR value 


2*: 


MOV 


R5, <R0) + 


Set kernel PAR 




MOV 


R5, (Rl) + 


Set user PAR value 




MOV 


#077406, <R2)+ 


Set kernel PDR 




MOV 


#077406, <R3)+ 


Set user PDR value 




ADD 


#200, R5 


Advance block number 




SOB 


R4>2« 


Init all pages 



Map kernel mode I,'0 page (160000) to 17760000. 
MOV #IOPAGE, ©#KPAR7 i Map I/O page 



Finished 

MOV 
MOV 
MOV 
MOV 
MOV 



<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 
<SP)+, Rl 



RETURN 



I 
f 
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10 
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28 
29 
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016542 
016544 
016546 
016550 
016552 
016554 



000110 

010146 
010246 
010346 
010446 
010546 
013746 



000004 



016560 
016566 
016570 
016572 
016576 
016600 



012737 
000240 
000240 
005737 
103411 
105237 



017131 



OOOOOOG 



OOOOOOG 



000004 



016604 
016606 
016610 
016614 
016616 



000240 
000240 
005737 
103402 
105237 



OOOOOOG 



OOOOOOG 



016622 



. SBTTL MEMTST 



Set up information about available memory space 



MEMTST is called to set up information related to memory management. 
MEMTST performs the following functions: 

1. Determine how much memory is installed on machine. 

2. Load Kernel mode mapping registers. 

Inputs: 
R5 = top of memory currently allocated for TSX and lou* memory buffers. 

Outputs: 
PHYMEM = 64-byte block # above top of physical memory. 
FMEMHI = 64-byte block # above top of memory available for system. 
Kernel mode mapping registers loaded. 
Memory management is left turned off. 



Offset word to test for memory wrap - choose a location which will not 
effect RT-11 or TSX-Plus initialization. 



TSTWRD 



110 



i Offset word to test for memory wrap 



MEMTST; MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -(SP) 
R4, -<SP.) 
R5.-<SP) 
@#4, -(SP) 



; Save illegal mem. ref. trap vector 



MOV 


#TRCSET> 


NOP 




NOP 




TST 


@#SR3MMR 


BCS 


22f 


INCB 


SR3FLG 



Determine if this machine has a memory management register # 3. 
If it does not* then machine cannot possibly have more than 256Kb. 

Catch trap 

Clean out 11/73 pipeline 

Before attempting trap 

Try to access status register 3 

Br if MMU 3 status register is non-existent 

No trap. We must have SR3 

Now determine if it implements D-space (11/23 11/24 do not) 
If there was no SR3MMR, then it certainly doesn't! 

;Clean out the pipeline again? 

i It there a user D-space PDRO? 

i Br if not 

j No trap. Must implement D-space 

If we are running on a Professionals there is a register that tells 
us how much memory is installed on the machine. 



NOP 




TST 


e#UDDRO 


BCS 


22* 


INCB 


IDSFLG 



22* : 
. IF 



NE, PROASM 
TSTB PROFLG 
BEQ 26* 
CLR R5 



Are we running on a Professional? 

Br if not 

Load byte without sign extension 



I 

c 

r 

i 

i 

c 

t 

i 
i 
€ 

( 

( 
t 
I 
f 



I 



i 
i 
I 

t 

c 
c 

4 
f 
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I 
I 
I 
I 
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5S 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

/ W 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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016622 

016634 
016642 
016646 
016650 



016656 
016662 
016666 
016674 



016700 
016702 
016704 
016710 
016714 



016716 
016722 
016724 
016730 
016736 
016744 
016752 
016754 
016760 
016762 



016766 
016772 
016776 
017000 
017004 
017010 



052737 
105737 
001403 
052737 



012705 
010537 
052737 
005737 



000004 
103405 
062705 
020527 
103762 



020527 
101421 
005037 
012737 
052737 
012737 
000004 
005737 
001402 
012705 



010537 
020537 
101402 
013705 
010537 
010537 



26*: 
ENDC 
IF 



BI3B ©#173050 J R5 

ASH #9. , R5 

SUB #10, R5 

BR 7* 

; NE, PROASM 
NE, <PR0ASM-1> 



Page 45-1 



i Get 32Kb top of system RAM boundary 

i Convert to # 64 byte blocks 

i Don't use the last 512 bytes of memory 



^Assemble if could be on a PDP~11 



012737 017142' 



OOOOOOG 
0000000 



000020 

0000000 



OOOOOOG OOOOOOG 



We are not running on a Professional. 

Test each page above TSX to see where the top of memory is. 

MOV #RTNKM, e#20 i Use lOT instruction to get out of user mode 

CLR @#22 

BIS #MMENBL, €#SROMMRj Enable memory management 

TSTB SR3FLG i Does maching have mem management reg # 3? 

BEQ 4* j Br if non-existent 

BIS #EMMAP. S#SR3MMR ; Enable 22-bit extended memory 

Map user page 7 to each successive 256-uiord block and attempt to access. 



002000 
OOOOOOG 
OOOOOOG 
160000 



OOOOOOG 



4*: MOV #1024. , R5 

5*: MOV R5>e#UPAR7 

BIS #UMODE, ®#PSW 

TST ©#160000 



; Start checking at 64Kb 

; Map user page 7 to page to be tested 

; Go into user mode 

; Can uie access the paqe?* 



Use lOT to get back into kernel mode. 



000010 
177600 



lOT 
BCS 
ADD 
CMP 
BLO 



6* 

#10, R5 

R5, #177600 

5* 



; Return to kernel mode 

; Br if memory is non-existent 

; Go try next page 

i Don't enter I/O page 



010000 

000110 
010000 
OOOOOOG 
177777 

000110 

010000 



OOOOOOG 
OOOOOOG 
160110 



Check for potential memory wrap <on IS-bit 256K byte computers). 

6*: CMP R5, #10000 ;Is physical memory above 256K bytes 

BLOS 7* iBr if below 256K bytes 

CLR e#TSTWRD J Clear physical location 

MOV #10000, e#UPAR7 ; Map to 256K byte boundary 

BIS #UMODE, e#PSW ;Go into user mode 

MOV #-l,@#160000H-TSTWRD ; Store -1 at 256K physical location 
lOT ; Return to kernel mode 

TST e#TSTWRD i Test physical location 

BEQ 7* ; Br if physical location is clear 

MOV #10000, R5 i Constrain memory to 256K byte total 

. ENDC i NE, <PR0ASM-1> 

Reached end of available memory. 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
000134' 



7*: 



8*: 



MOV 


R5, PHYMEM 


CMP 


R5, MAPSIZ 


BLOS 


8* 


MOV 


MAPSIZ, R5 


MOV 


R5, *MEMSZ 


MOV 


R5, FMEMHI 



set physical memory size 

Constrain kernel to user specified cutoff 

Br if below user specified 

Only use this much memory 

Set # 64-byte blocks of total memory 

Save base 64-byte block # of top of free mem 



; Turn off memory management 



TSINIT - 
MEMTST - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
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017014 
017020 
017022 
017030 



017036 
017044 
017046 
017052 
1 7060 
017062 



017070 
017076 
017100 
017104 
017106 



017112 
017116 
017120 
017122 
017124 
017126 
017130 



017132 
017140 



017142 
017150 



017152 
017160 
017166 



001403 
042737 
042737 



023727 
103411 
105237 
123727 

052737 



0000000 

OOOOOOG 
0000000 



OOOOOOG 
OOOOOOG 



TSTB SR3FLG ; Do me have memory management reg # 3? 

BEQ 9* i Br if non-existent 

BIC #EMMAP, e#SR3MMR i Disable extended memory management 

9*: BIC #MMENBL, @#SROMMRi Turn off memory management 

If this is a Q-bus machine with >256Kb then set EXTLSI flag in ICONFG 



000134' 010000 



OOOOOOG 
OOOOOOG 

000001 



OOOOOOG 



CMP FMEMHI, #4096. 

BLO 25* 

INCB MEM256 

CMPB VBUSTP, #QBUS 

BNE 25* 

BIS #EXTLSI. ICONFG 



Does machine have at least 256Kb? 
Br if not 

Remember machine has at least 256kb 
Is this a Q-bus machine? 



X ^ It u w 



Set extended-LSI flag in ICONFG 
See if this machine needs UNIBUS mapping 



123727 OOOOOOG OOOOOOG 25*: 

001005 

105737 OOOOOOG 

001402 

105237 OOOOOOG 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



052766 
000002 



042766 
000002 



000004 



29* 



: CMPB 


VBUSTP, #U 


BNE 


29* 


TSTB 


MEM256 


BEQ 


29* 


INCB 


UBUSMP 


F i H i i> h e d 




MOV 


< SP ) +, e#4 


MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP>+, R3 


MOV 


(SP)+, R2 


MOV 


(SP>+, Rl 


RETURN 





VBUSTP, #UNIBUS J Is this a UNIBUS machine? 



i Br if not 

j Does machine have at least 256kb of memory? 

; Br if not 

i Say UNIBUS mapping is needed 



Reset trap vector 



000001 000002 



Trap - return with C-bit set. 

TRCSET: BIS #1,2<SP) 
RTI 



J Set c-bit for return 
j Return from trap 



OOOOOOG OOOOOJ 



lOT - return at kernel mode with c-bit preserved 
RTNKM: BIC #UMODE, 2(SP) 



BIC 
RTI 



i Clear user mode ~ return to kernel 
; Return from trap 



000137 004102' 



Error: System does not have memory management hardware. 

NDXM: .PRINT #TSXHD i PRINT ERROR MESSAGE 

.PRINT #NXMMSG 
JMP INISTP i ABORT INITIALIZATION 



i 
i 

( 

I 

( 

i 

I 

( 

( 

i 
t 
I 
i 
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3 
4 
5 
6 
7 

a 

9 
10 
11 

12 017172 
13 
14 
15 

16 017172 
17 
IS 
19 
20 

21 017176 

22 017202 

23 017206 

24 017212 

25 017220 
26 

27 

28 

29 017224 

30 017226 
31 

32 
33 

34 017232 

35 017236 

36 017242 

37 017244 

38 017250 
39 

40 
41 

42 017254 

43 017260 

44 017264 

45 017270 
46 

47 
48 

49 017274 

50 017300 

51 017304 

52 017310 

53 017312 

54 017314 

55 017320 

56 017324 
57 



012700 OOOOOOG 



062700 
042700 
010037 
062737 
062700 



006200 
010037 



062700 
072027 
000300 
052700 
010037 



013700 
062700 
072027 
010037 



012700 
062700 
072027 
005300 
000300 
052700 
042700 
010037 



000077 
000077 
OOOOOOG 

OOOOOOG OOOOOOG 
00000 IG 



OOOOOOG 



000037 
177773 

000006 
OOOOOOG 



OOOOOOG 
000377 
177770 
OOOOOOG 



OOOOOOG 
000077 

177772 



000006 
100261 
OOOOOOG 



. SBTTL CXTALC — Set up info about job context area 

Set up information about the- size of the job context area. 

Outputs: 
CXTWDS = Number of ujords needed for job context area. 
CXTPAG == Number of 512-byte pages needed for context area. 
CXTPDR = Value to load into PDR when mapping job context area. 
CXTRMN = Address of simulated RMON in context area. 
RMNPDR = Value to load into PDR to snap to simulated RMON. 

CXTALC: 

> Get size of base portion of job context area 

MOV #CXTSIZ*RO ;Get # bytes for base context area 

Bound up to 64-byte boundary and add size of simulated RMON 
which is allocated above the base job context data. 

ADD #63. , RO ; Bound up to 64 byte boundary 

BIC #77, RO 

MOV RO, CXTRMN ; Of f set to start of simulated RMON 

ADD #CXTBAS> CX ikMN ;Add base virtual address of context area 

ADD #MVSIZ+1,R0 ; Add space for simulated RMON S< channels 

Save number of words needed for context area 



ASR 
MOV 



RO 

RO, CXTWDS 



; Convert to # words 

i Th i s is # words for whole job context area 



Compute PDR value to use to map to job context area 



ADD 


#31. ,R0 


ASH 


#-5. ,R0 


SWAB 


RO 


BIS 


#6>R0 


MOV 


RO, CXTPDR 



; Bound up to # 32 word units 

i Get # 32-word units for context area 

i Put # 32-word units in high-order byte 

/Set PDR control flags 

iThis is the PDR value 



Compute # 512-byte pages needed for job context block 



MOV 
ADD 
ASH 
MOV 



CXTWDS, RO 
#255. , RO 
#-8. , RO 
RO, CXTPAG 



Get back # words for context area 
Bound up to # 256-word blocks 
Get # 256-word pages for context area 
# pages for job context area 



Set up PDR value used when mapping to simulated RMON 



MOV 


#MVSIZ, RO 


ADD 


#63. , RO 


ASH 


#-6, RO 


DEC 


RO 


SWAB 


RO 


BIS 


#6, RO 


BIC 


#100261, RO 


MOV 


RO, RMNPDR 



Get size of monitor vector table 

Round up to # 32 word blocks 

Cvt to # 32-word blocks 

Get # blocks - 1 

Put # blocks in left byte 

Allow read and write access 

Make sure unused PDR bits are zero 

This is PDR value to map to sim. RMON 
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60 017330 000207 RETURN 
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1 
2 










3 










4 










5 










6 










7 










8 










9 










10 










11 










12 










13 








1 


14 










15 










16 










17 








1 


18 










19 










20 








1 


21 










22 










23 










24 








> f 


25 








26 










27 


017332 


010246 






28 


017334 


010346 




29 


017336 


010446 






30 










31 










32 

33 










34 


017340 


010503 






35 


017342 


072327 


177775 




36 


017346 


042703 


160000 




37 


017352 


013702 


000136' 




38 


017356 


062702 


000007 




39 


017362 


072227 


177775 




40 


017366 


042702 


160000 




41 


017372 


160203 






42 


017374 


003440 






43 


017376 


010304 






44 


017400 


062704 


001000 




45 


017404 


072427 


177767 




46 








1 < 


47 
48 








1 


49 


017410 


012700 


OOOOOOG 




50 


017414 


010037 


OOOOOOG 




51 


017420 


160200 




1 


52 


017422 


010037 


ooooooe 


1 * 


53 


017426 


012700 


OOOOOOG 




54 


017432 


060300 






55 


017434 


160400 






56 


017436 


010037 


OOOOOOG 




57 
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. 3ETTL MAPALC — Aiiocate memory usage table 



MAPALC is called to allocate a table that keeps track of which pages 

of memory are currently in use by user jobs and which are free. 

Each byte in the table corresponds to a 512-byte block of physical memory. 

The portion of physical memory used by the system is not represented 

in the memory allocation table. 



Inputs: 
R5 
FMEMLO 

Outputs: 
FMEMHI 
MAPPAR 
BASMAP 



LOMAP 



H I iiAP 



64-byte block number of top of free memory area. 
64-byte block number of base of free memory area. 



64-b 
64-b 
Virt 
corr 
in t 
actu 
Virt 
to 1 
Note 
alio 
Virt 
to 5 



y te block 
yte block 
ual addre 
espond to 
he alloca 
ally not 
ual addre 
st physic 
, LOMAP a 
cation ta 
ual addre 
12-byte p 



number of top of free memory area. 

number used to map to the memory alloc table. 
ss of memory allocation table that would 

physical address 0. Note* the entries 
tion table between BASMAP and LOMAP are 
allocated. 

ss of memory allocation table that corresponds 
al 512-byte page that is available to user jobs. 
Iways contains 120000 because we access the 
ble by mapping it through PAR 5. 
ss of memory allocation table that corresponds 
age above the top of the user area. 



MAPALC : MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -(SP) 



Determine how many bytes will be required for the memory allocation table. 
One byte in the table is required for each 512-byte physical page. 

Get 64-byte block # of top of free mem 

Convert to 512-byte page # 

Kill possible sign extension 

Get 64-byte block # of base of free memory 

Round up 

Convert to 512-byte page # 

Kill possible sign extension 

Get # bytes needed for allocation table 

Br if memory overflow 

Get # bytes for allocation table 

Add 1 extra byte and round up to 512-byte 

Get # 512-byte units needed for alloc table 

Set up virtual address pointers for the allocation table 

; We will map to alloc table through PAR 5 

; Pointer to 1st entry in alloc table 

; Get pseudo virtual address for page # O 

jThis would point to alloc entry for page O 

; Get back base address of table 

iAdd # bytes used by table 

;Subtract space used by table itself 

; Virtual address of 1st entry for system page 



MOV 


R5, R3 


ASH 


#-3, R3 


BIC 


#160000, R3 


MOV 


FMEMLO, R2 


ADD 


#7, R2 


ASH 


#-3, R2 


BIC 


#160000, R2 


SUB 


R2, R3 


BLE 


10* 


MOV 


R3, R4 


ADD 


#512. ,R4 


ASH 


#-9. , R4 



MOV 


#VPAR5, RO 


MOV 


RO, LOMAP 


SUB 


R2, RO 


MOV 


RO, BASMAP 


MOV 


#VPAR5, RO 


ADD 


R3, RO 


SUB 


R4, RO 


MOV 


RO, HIMAP 
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5B 
59 








60 


017442 


072427 


000003 


61 


017446 


160405 




62 


017450 


020537 


000136' 


63 


017454 


101410 




64 


017456 


010537 


0000000 


65 


017462 


010537 


000134' 


66 








bl 








68 








69 


017466 


012604 




70 


017470 


012603 




71 


017472 


012602 




72 


017474 


000207 




73 








74 








75 








76 


017476 






77 


017504 






78 


017512 


000137 


004102' 
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llocate s 


pace for the 


ASH 


#3*R4 


SUB 


R4, R5 


CMP 


R5, FMEMLO 


BLOS 


10* 


MOV 


R5, MAPPAR 


MOV 


R5- FMEMHI 



Get # 64-byte units for alloc table 

Compute physical 64-byte base for table 

Did we run out of memory space? 

Br if memory overflow 

Use this value to map PAR 5 to alloc table 

Save new top of free memory area 



F i n i G h s d 



MOV 


<SP)+, R4 


MOV 


<SP) f, R3 


MOV 


(SP)+, R2 


RETURN 




•> Error: Generated syst 


10*: .PRINT 


#TSXHD 


. PRINT 


#PHSDVF 


JMP 


INISTP 



is too large 



; Print error message heading 
; Physical memory overflow 
jAbort the initialization 



I 
f 

I 

€ 

I 

i 
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I 
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17520 
17524 
17530 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 017516 010546 
17 
18 
19 

20 

21 

22 
23 
24 
2S> 

26 017534 

27 017540 
28 
29 
30 

31 017542 

32 017546 

33 017552 

34 017554 

35 017556 

36 017562 

37 017564 

38 017570 

39 017574 

40 017576 

41 017602 

42 017604 

43 017610 
44 
45 
46 

47 017614 

48 017620 

49 017622 

50 017626 
51 
52 
53 

54 017632 

55 017634 
56 
57 



013705 
163705 
010537 



020537 
103436 



013700 
010037 
160005 
006205 
020537 
101402 
013705 
010537 
010500 
072027 
001002 
012700 
010037 



020537 
101402 
013705 
010537 



012605 
000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

000012 

177774 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



3B7TL SETJSZ 



Set up information about maximum job sizes 



SETJSZ is called to set up some information about the maximum 
job sizes to be allowed. The maximum job size is chosen so that 
uje are guaranteed to be able to get at least one job logged on. 

Inputs: 
LOMAP = Address of 1st MEMMAP entry available to user jobs. 
HIMAP = Address of 1st MEMMAP entry above top of user job area. 



Outputs: 
FREPGS 



Total number of 512-byte pages available to user jobs, 
max # K bytes available to a job 
Default job memory size (kb) 



DFJMEM = 
SETJSZ: MOV R5, -(SP) 

Determine total number of pages of memory available to user jobs 



MOV 
SUB 
MOV 



HIMAP, R5 
LOMAP, R5 
R5, FREPGS 



POINTER ABOVE LAST FREE PAGE ENTRY 

GET TOTAL # OF FREE PAGES 

# FREE PAGES AVAILABLE TO USER JOBS 



Make sure there is enough free space to run TSKMON. 



CMP 
BLO 



R5, KMNPGS 
1* 



i COMPARE # FREE PAGES TO # PAGES FOR TSKMON 
J BR IF INSUFFICIENT MEMORY TO RUN TSKMON 



10*: 



Set up max memory limit for jobs 

# PAGES NEEDED FOR JOB CONTEXT AREA 

LEAVE ROOM FOR JOB CONTEXT AREA 
Convert # pages to # KB 

COMPARE WITH TSGEN SPECIFIED MAX SIZE 
BR IF CONSTRAINED BY PHYSICAL SIZE 
LIMIT BY VALUE SPECIFIED IN TSGEN 
MAX # K BYTES AVAILABLE TO A JOB 

CONVERT # KB TO BYTE ADDRESS 
BR IF DIDN'T OVERFLOW 64KB 
GET 64KB TOP ADDRESS 
ADDRESS ABOVE TOP OF JOB 



MOV 


CXTPAG, RO 


MOV 


RO, JCXPGS 


SUB 


RO, R5 


ASR 


R5 


CMP 


R5, VHIMEM 


BLOS 


10* 


MOV 


VHIMEM, R5 


MOV 


R5, MXJMEM 


MOV 


R5, RO 


ASH 


#10. ,R0 


BNE 


2* 


MOV 


#177774, RO 


MOV 


RO, MXJADR 



Set default memory size of jobs 



11* 



CMP 


R5, VDFMEM 


BLOS 


11* 


MOV 


VDFMEM, R5 


: MOV 


R5, DFJMEM 


F~ i n i s h e d 




MOV 


(SP)+, R5 


RETURN 





COMPARE TO DEFAULT SPECIFIED IN TSGEN 
BR IF CONSTRAINED BY PHYSICAL LIMIT 
CONSTRAIN BY TSGEN PARAMETER 
SET DEFAULT JOB MEMORY SIZE 



c 
c 
i 
i 
i 

i 
f 

t 
i 



Error 



Insufficient memory space available to run TSKMON. 
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SETJSZ — Set up information about maximum job sizes 

58 i 

59 G17636 004737 027650' 1$; CALL SIZERR '• Generated system is too big — abort 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



017642 005727 0000000 

017646 001027 

017650 010246 

017652 013746 000004 



017656 012737 017702' 000004 
017664 000240 
017666 000240 



017670 012702 0000000 

017674 042712 0000000 

017700 000402 

017702 062706 000004 

017706 062702 000002 

017712 020227 OOOOOOG 

017716 101766 



017720 012637 000004 
017724 012602 
017726 000207 



. If- NEj <PROAt>M~l> J No parity control if FRO only 
. SBTTL PARSET — Setup memory parity control 

PARSET is called to set up memory parity control. 
Currentlu this consists of disabling memory parity. 



PARSET: TST 
BNE 
MOV 
MOV 



#MPARFL 

20* 

R2, -(SP) 

e#4, -<SP) 



; Does he uant to disable memory parity? 
; Br if not 



; Save contents of trap vector 
Catch traps that occur when me access unimplemented parity registers 
#2*, €#4 



MOV 
NOP 
NOP 



} Send traps to 2* 

.! Clean out instruction pipeline 



Disable parity for each block of memory 





MOV 


#MPARO, R2 


1$: 


BIC 


#PARENL, <R2) 




BR 


3* 


2*- 


ADD 


#4, SP 


3*: 


ADD 


#2, R2 




CMP 


R2, #MPAR16 




BLOS 


1* 


i Finished 






MOV 


(SP)+, @#4 




MOV 


<SP)+, R2 


20*: 


RETURN 






. IFF 


; NE, <PR0ASM--1> 


PARSET: 


RETURN 






. ENDC 


i NE, <PR0ASM -1> 



i Point to 1st memory control register 

{Disable memory parity 

i We did not trap 

; Clean trap PS and PC off of stack 

i Point to next parity control register 

; Have we cleared all registers? 

iLoop if not 



i Restore trap vector 
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and lers 


1 
2 








3 








4 








5 








6 








7 








a 








9 








10 








11 








12 








13 








14 


017730 


010146 




15 


017732 


010246 




16 


017734 


010446 




17 








IS 








19 








20 


017736 


005001 




21 


017740 


020127 


OOOOOOC 


22 


017744 


10301D 




23 


017746 


016102 


OOOOOOG 


24 


017752 


001407 




25 


017754 


020227 


OOOOOOG 


26 


017760 


001404 




27 


017762 


016104 


OOOOOOG 


28 








29 








30 








31 


017766 


004737 


020040 ' 


32 








33 








34 








35 


017772 


062701 


000002 


36 


017776 


000760 




37 








38 








39 








40 


020000 


012704 


OOOOOOG 


41 


020004 


001411 




42 


020006 


012701 


OOOOOOG 


43 


020012 


012102 




44 


020014 


010446 




45 


020016 


005004 




46 


020020 


004737 


020040 '■ 


47 


020024 


012604 




48 


020026 


077407 




49 








50 








51 








52 


020030 


012604 




53 


020032 


012602 




54 


020034 


012601 




55 


020036 


000207 
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Load device handlers into memory 



GEIHNL performs two functions: 

1. Set up information in the device tables about all devices. 

2. Load those handlers that reside in low memory. 

Inputs: 
R5 = Address of start of free memory. 

Outputs: 
R5 = Address of new start of free memory. 
NfiXHAN = Number of handlers to load into extended memory. 



GETHNL: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R4, -<SP) 



1*: 



Begin loop to check ail handlers specified in TSGEN with DEVDEF. 

i Init device table index 



Br if yes 

Get the name of the device 

Ignore null devices 

Is this a dummy device entry? 

Skip it if yes 

Get flags specified in TSGEN 



i Try to load handler into memory 



CLR 


Rl 


CMP 


R 1 , #<:ahend -AU 


BHIS 


2* 


MOV 


AUTHAN<R1>-. R2 


BEQ 


3* 


CMP 


R2> #DMYDEV 


BEQ 


3* 


MOV 


DTYPE(R1.).. R4 



Load this handler 

CALL LDHAND 
Check next device 



3*: 



ADD 
BR 



#2, Rl 
1* 



; Advance device index 

i See if more devices to load 



Now see if there are spooled devices to contend with 



?«: 



5$: 



9*: 



MOV 


#SPLND, R4 


BEQ 


9* 


MOV 


#SPLDEV, Rl 


MOV 


<R1)+, R2 


MOV 


R4, -<SP) 


CLR 


R4 


CALL 


LDHAND 


MOV 


(SP)+, R4 


SOB 


R4, 5* 


Finished 




MOV 


<SP)+. R4 


MOV 


(SP)+. R2 


MOV 


(SP)+, Rl 


RETURN 





Are there any spooled devicesT' 

Br if not 

Point to spooled device name table 

Get the name of the next spooled device 

Save device count 

Say no TSGEN flags for device 

Load the handler 

Recover the device count 

Loop if more handlers to load 
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i 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



020040 010446 



020042 004737 
020046 103457 



020050 
020054 



004737 
103451 



020370 ' 



020056 004737 021004' 



020062 
020066 
020072 
020074 
020100 
020102 
020106 
020110 
020114 
020116 
020122 
020124 
020132 



016400 
032700 
001036 
032700 
001433 
032700 
001412 
105737 
001025 
032700 
001404 
032737 
001016 



OOOOOOG 
OOOOOOQ 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000001 000242 



SBTTL LDHAND 



Load a device handler 



LDHAND sets up the device tables for a handler and loads into memory 

those handlers that reside in low memory. 

The device interrupt vectors are NOT set up by LDHAND. 

Inputs: 
R2 = Rad-50 name of device. 

R4 = TSX-Plus DX*xxx status flags for device from TSGEN. 
R5 = Address where handler is to be loaded. 

Outputs: 
Rb — New free memory address. 
NUMDEV = Incremented by 2. 
PNAME<i) = Rad~50 name of device. 
ENTRY(i) = Handler entry point. 
DVSTATd) = Device status flags. 
DVFLAG(i> = TSX-Plus device status flags. 
HANPAR<i) = PAR offset if this is a mapped handler. 

LDHAND: MOV R4, ~<SP) 

Detprmine if we should ignore this device 



CALL 
BCS 



INSCKl 
9* 



i Should we ignore this device? 
; Br if yes 



The initial tests indicate that this handier should be loaded. 
Now open the handler file and perform some additional checks. 



CALL 
BCS 



INSCK2 



i Perform some additional checks on handler 
i Br if we should not load this device 



At this point channel 1 is open to the handler file and block 

of the handler is in WRKBUF. 

Set up information tables for this device. 



CALL 



STDVTB 



Set up info in tables for this device 



Determine if this handler is to be loaded into low memory or 
extended memory. 

Get TSX-Plus status flags for device 

Are we never to map this handler? 

Br if handler cannot be mapped 

Is mapping wanted for this handler? 

Br if not 

Does this handler have an internal I/O buff? 

Br if not 

Does this machine have a mapped UNIBUS? 

Br if yes — Don't map this handler 

Does this handler require I/O mapping? 

Br if not 

Is this a Q~bus system with more than 256Kb? 

Br if yes — Don't map this handler 

This handler can be mapped and will be loaded in extended memory 



MOV 


DVFLAG<R4>,R0 


BIT 


#DX*NHM, RO 


BNE 


1* 


BIT 


#DX*MPH. RO 


BEQ 


1$ 


BIT 


#DX*IBH. RO 


BEQ 


2« 


TSTB 


UBUSMP 


BNE 


1* 


BIT 


#DX*MAP* RO 


BEQ 


2* 


BIT 


#EXTLSI. ICONFG 


BNE 


1* 
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— Load a device handler 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
31 
82 



020134 
020140 



020146 
020154 
020156 
020162 
020166 



020170 
020174 



020200 



020206 
020210 



005237 
012764 



026427 
101411 
012700 
004737 
000404 



005064 
004737 



000124' 2*: 

000001 OOOOOOG 



OOOOOOG 020000 



INC 
MOV 



NMXHAN ; Count # of mapped handlers 

#1, HANPAR(R4) ; Set flag saying handler should be mapped 



002335 ' 
022102' 



OOOOOOG 
021114' 



012604 
000207 



Make sure size of mapped handler does not exceed 8KB 

HANSIZ(R4), #8192. ils mapped handler too big? 

Br if not too big 
Get error message address 
Abort initialization if iniabt 



CMP 


HANSIZ(R4) 


BLOS 


8$ 


MOV 


#HN2BIG, RO 


CALL 


HLERR 


BR 


8* 



This handler must b 



S-. t r^ '••. ft r^ l4 i wn. •t- «-v I r^ t . I ftK 1'^ rt^ t^ •TK • 1 

K Jl U O U tL' U J. I f W U Jl U\JU HJiriliU I v^ 



1*: 



CLR HANPAR<R4) 
CALL LDHNLO 



Close the handler file 

8*; . CLOSE #1 

Finished 

7f>; MOV <SP)+, R4 
RETURN 



j Say this handler is not mapped 
; Load handler into low memory 



iClose the handler file 
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000417 
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000002 
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020310 
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020312 


012701 


000336 ' 
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020316 


020261 


000000 
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056104 


000002 


57 
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000405 
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SBTTL INSCKl 



Determine if a handler should be installed 



INSCKl is called to determe if a certain device handler should be 

loaded. 

Inputs: 
R2 = RadSO name of the device. 
R4 = Initial DX*xxx flaps as specified in TSGEN. 

Outputs: 
C-flag cleared ==> Load the handler. 
C-flag set ==> Do not load the handler. 
R2 = Device name with unit number removed. 
R4 = DX*xxx combined mith default flags for the device. 



INSCKl: MOV R1,-<SP) 

Strip off any specified unit number 



MOV 
CLR 
DIV 
MUL 
MOV 
MOV 



R2, Rl 

RO 

#50, RO 

#50, RO 

R1,R2 

R2, CURNAM 



i Get full device name 

; Set for divide 

i Split off last digit 

; Now correct for divide 

;6et device name less 3rd digit 

J Set name of handler being loaded 



1*: 
2$: 



See if this is a device such as DK, SY, or TT which we don't 
need to load as a device handler. 

; Is device name LD? 

i Br if not 

i Is standard system LD support included? 

i Br if yes — Don't load LD 

; Load LD 

jPoint to table of devices to skip 

; Is this a device to be skipped? 

j Br if yes 

i Reached end of skip list? 

> Loop if not 

See if we have already loaded the handler for this device 



CMP 


R2, #R50LD 


BNE 


1* 


TSTB 


VLDSYS 


BNE 


5* 


BR 


3* 


MOV 


#SKPDEV, Rl 


CMP 


R2, (Rl) + 


BEQ 


5* 


TST 


<R1) 


BNE 


2* 



MOV NUMDEV. Rl 

BEQ 3* 

4*: CMP R2, PNAME(Rl) 

BEQ 5* 

SUB #2, Rl 

BGT 4* 



j Get index for last device 

; Br if no devices installed yet 

J See if this device is already installed 

i Br if already installed 

i More installed devices to check? 

J Loop if yes 



This handler is to be loaded. 

Get default TSX-Plus control flags for this device. 

3*: MOV #DVFLBS>R1 ; Point to start of table 

6*: CMP R2, DV*NAM<R1) > Search for device in the table 

BNE 7* i Br if this is not it 

BIS DV*FLG<R1),R4 ; Combine default flags 

BR 8* 
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— Determine if a handler should be installed 



020332 062701 000004 
020336 020127 000516' 
020342 103765 



020344 032704 OOOOOOG 

020350 001402 

020352 052704 OOOOOOG 



020356 000241 
020360 000401 



020362 000261 



020364 012601 

020366 000207 



ADD 


#BV**SZ,R1 


CMP 


R 1 , #DVFLND 


BLO 


6* 



J Point to next entry 
; Checked all entries? 
; Loop if not 

If this is a DMA device^ set flag saying buffers must be on 
even byte boundaries. 



a*: 



i Load this handler 



BIT 


#DX*DMA. R4 


BEQ 


10* 


BIS 


#DX*EBA> R4 



10*: 



BR 



9« 



Do not load this handler 
5*: SEC 
Finished 



9*: 



MOV <SP)+. Rl 
RETURN 



i Is this a DMA device? 

5 Br if not 

; Set even-buffer-boundary flag 



i Set flag saying to load the handler 



; Set flag saying not to load the handler 
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8 
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020370 


010146 




15 


020372 


010246 




16 


020374 


010346 




17 


020376 


010446 




IS 


020400 


010546 




19 


020402 


013746 


000004 


20 

21 

22 


020406 


013746 


000010 








23 








24 


020412 


010237 


000202 ' 


25 








26 


020416 






27 


020436 


103006 




28 








29 








30 








31 


020440 


012700 


001510' 


32 


020444 


004737 


022102' 


33 


020450 


000137 


020760 ' 


34 








35 








36 








37 








38 


020454 






39 


020512 


103006 




40 


020514 


012700 


001552' 


41 


020520 


004737 


022102' 


42 


020524 


000137 


020760 ' 


43 








44 








45 








46 


020530 


012700 


000322 ' 


47 


020534 


013701 


000152' 


48 


020540 


116101 


OOOOOOG 


49 


020544 


120160 


000000 


50 


020550 


001011 




51 


020552 


026037 


000002 000156 


52 


020560 


101412 




53 


020562 


012700 


001616' 


54 


020566 


004737 


022102' 


55 


020572 


000472 




56 


020574 


062700 


000004 


57 


020600 


020027 


000336 ' 
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. 3BT7L iNSGK2 — Additional checking for handier installation 

INSCK2 is called to determine if a device handler should be installed. 

Inputs: 
R2 = RadSO device name (without unit number). 

Outputs: 
C-fiag cleared =-> Load this handier. 
C-^-flag set ==> Do not load this handler. 

If the handler is to be loaded* its block is in WRKBUF and channel 
number 1 is opened to the handler file. 



INSCK2: 


MOV 


R1,-<SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -(SP) 




MOV 


e#4, -(SP) 




MOV 


@#10, -(SP) 



} Save the bus timeout vector 

i Save illegal instruction vector 

■> Try to lookup handler file on system disk 

MOV R2. HANnaM+2 ; Set the device name for the lookup 
;;; Dcn't change channel # without changing STDVTB 

.LOOKUP #AREA, #1,#HANNAM; Try to open the handler file 
BCG 1* j Br if me found the handler file 



Error 



Cannot find handler file 



MOV #CFHMSG, RO 
CALL HLERR 
JMP 13* 



i Can't find handler 

i See if should abort initialization 



1*: 



We were able to open the handler file. 
Read in block of handler. 

. READW #AREA, #1, WRKBUF, #256. , #0 ; Read block O into WRKBUF 

BCC 3* i Br if read ok 

MOV #ERHMSG» RO i Error during read 

CALL HLERR 

JMP 1 3* 

Determine if the handler is supported under the current RT-11 versi 



on 



3$: 



51*: 



53*: 



MOV 

MOV 

MOVB 

CMPB 

BNE 

CMP 

BLOS 

MOV 

CALL 

BR 

ADD 

CMP 



#HVTBL, RO 
WRKBUF, Rl 
H DSTS(R1),R1 
Rl, HV«ID(RO) 
53* 



iPoint to table with handier version info 
iPoint to buffer with block of handler 
i Oet device ID code from handler 
i Compare handler ID code with table entry 
i Br if this entry not for this handler 



HV*VER(RO), RTVPTR ils handler valid for this version? 

54* ; Br if OK 

#ERHNDVj RO i Wrong version of RT for handler 

HLERR i See if should Report error and abort 

13* 

#HV**SZ, RO ; Point to next handler version table entry 

RO, #HVEND i Are there more entries? 
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020604 103757 



020606 
020612 
020620 
020622 
020626 
020632 
020634 



020642 
020650 
020656 
020662 
020666 
020670 
020672 
020674 
020700 
020704 



020706 
020712 
020714 
020716 
020722 
020730 
020734 
020736 
020742 
020744 
020750 
020754 



020756 
020760 
020764 
020770 
020772 
020774 
020776 
021000 
021002 



013700 
032760 
001005 
012700 
004737 
000452 
016037 



012737 

012737 
013700 
016001 
001407 
005711 
103005 
012700 
004737 
000425 



062700 
005710 
001420 
013746 
012737 
013703 
004710 
012637 
103006 
012700 
004737 
000401 



000241 
012637 
012637 
012605 
012604 
012603 
012602 
012601 
000207 



SLO 



51* 



Loop if more to check 



Check handler sysgen options 



000152' 54*: 

0000000 OOOOOOG 

002027 ' 
022102' 

0000000 000240' 4*: 



MOV 

BIT 

BNE 

MOV 

CALL 

BR 

MOV 



WRKBUF, RO i Point to buffer with handler block 

#SG«MMU, H. GEN<RO)i Was handler genned with XM support? 

4* i Br if yes 

#HSGER, RO i Error if not XM version of handler 

HLERR 

13* 

H. GEN <R0), HGENFL; Save handler sysgen flags for later 



017132' 
017132' 
000152' 
OOOOOOG 



001670' 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

001721 ' 
022102' 



000010 
000004 



Chec 
hard 



r fc; & » i> p I 

mars device for this handler exists. 



000004 

000010 



MOV #TRCSET, ©#4 

MOV #TRCSET, ©#10 

MOV WRKBUF. RO 

MOV H. CSR<R0),R1 

BEQ 5* 

TST (Rl) 

BCC 5* 

MOV #NOCSRR. RO 

CALL HLERR 

BR 13* 



Catch bus timeout traps 

Catch illegal instruction traps 

Point to start of block O of handler 

Get address of CSR for device 

Br if no CSR specified 

Is CSR accessible? 

Br if ok 

Trap occurred uihile accessing CSR 

See if should report error and abort 



Exec 

The 

not 



ute the device installation code. 

installation code will set the C~flag if the handler should 

be loaded. 



>*: 



OOOOOOG 



ADD #H. INS, RO 

TST SRO 

BEQ 11* 

MOV @#RMON, - < SP ) 

MOV #MONVEC, e#RMON 

MOV RPRVEC* R3 

CALL eRO 

MOV <SP>+, €#RMON 

BCC 13* 

MOV #ERHINS, RO 

CALL HLERR 

BR 13* 



Offset 200 in block O 

Does any installation code exist? 

Br if no driver installation code 

Save RT-11 RMON pointer 

Set TSX-Plus RMON pointer 

Get pointer to Pro vec addr routine 

Call the installation code 

Restore RT-il RMON pointer 

C-flag now indicates handler load status 

Error occured in handier installation code 



Finished with installation verification. 



11*: 


CLC 




13*: 


MOV 


(SP)+, e#io 




MOV 


(SP)+, @#4 




MOV 


<SP)+, R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+,R1 




RETURN 





iClear the c-bit for driver installation 
iRestore illegal instruction vector 

f Restore the bus timeout vector 
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021004 



021004 
021012 



021016 
021022 



021034 
021036 
021042 
021050 
021056 



021064 
021072 
021074 



062737 
013700 



010260 
010460 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



021026 012760 000001 OOOOOOG 



010004 
013700 
016064 
016064 
016064 



032764 
001404 
032764 



000152' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



. SBTTL STDVTB — Set up device table entries for a device 

STDVTB is called to set up device table entries for a device whose 
handler is being loaded. 

Inputs: 
R2 = RadSO name of device <less unit number). 
R4 = DX*xxx device flags for DVFLAG table. 
Block of the handler must be in WRKBUF. 
Channel 1 must be open to the handler file. 

Outputs: 
R4 = Device table index number for this device. 
NUMDEV = Incremented by 2. 
PNAME<i) = Rad50 name of the device. 
DVSTATd.) = Device status flags. 
DVFLAG<i) = TSX-Plus control flags. 
HANSIZ(i) = Size of handler (bytes). 
DEVSIZ<i) = Size of device (blocks). 

STDVTB: 

Inrrpment device counter 



ADD #2, NUMDEV 
MOV NUMDEV, RO 

Set up PNAME and DVFLAG. 

MOV R2, PNAME <R0) 
MOV R4, DVFLAG <R0) 



Say another device added to tables 
Get device index number 



j Set permanent device name 

; Set up TSX-Plus control flags for the device 



Set HANDSK entry to 1. 

This entry is supposed to hold the absolute block number on the disk where 

block 1 of the handler is located. We set to 1 because all ID we do 

on behalf of the handler is relative to the base of the handler rather than 

relative to the start of the disk. This is critical during handler 

load/fetch code. 

NOTE: : This table is replaced during KMINIT by the location of handler 

block 1 relative to the start of the disk so that utilities can find 

the handler files in the same way as under RT-11. 

MOV #1, HANDSK(RO) ; Set block 1 relative offset of handler file 

Extract parameters from handler block 

MOV RO, R4 i Carry device index in R4 

MOV WRKBUF, RO ; Point to block O of handler 

MOV H. SIZ(RO), HANSIZ<R4) i Set handler size 

MOV H. DVSZ<RO), DEVSIZ<R4) i Number of blocks on device 

MOV H. DSTS<RO), DVSTAT(R4) ; Set device status flags 

Disable MOUNTs and data caching for certain devices 

BIT #DS*DIR, DVSTAT(R4) J Is this a directory structured device? 

BEQ 1* } Bt if not — No mounts allowed 

BIT #DS*NRD, DVSTAT<R4) j Non RT~1 1 directory structure <mag tape)? 
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58 021102 001403 

59 021104 052764 OOOOOOC OOOOOOG 1$: 
60 
61 
62 
63 021112 000207 



13EQ 
BIS 



9* ; Br if not 

#<DX*NMTfDX*NCA>, DVFLAG<R4) ; Disable mounts and data caching 



Finished 
9«: RETURN 
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?nj^ I I L, 



021114 010346 



021116 005064 OOOOOOG 

021122 010500 

021124 016403 OOOOOOG 

021130 060300 

021132 004737 027630' 



021136 
021140 
021174 
021176 
021202 
021206 



006203 

103005 
012700 
004737 
000414 



001552' 
022102' 



-DHNLO ■ — Load device handler into low memory 

LDHNLO is called to load a device handler into lou> memory. 

Inputs: 
R4 = Device index number, 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of new start of free memory area. 

LDHNLO: MOV R3>-<SP) 

i Determine if we have enough free memory space to read the handler 

> Say this handler is not mapped 

* Get current top of memory address 

; Get size of handler 

;Get address above top of handler 

i See if handler mill fit in memory 

Handler will fit. Head it into memory. 

ASR R3 > Get number of words to read 

. READW #AREA, #1, R5. R3, #1 

BCC 1* iBr if read ok 

MOV #ERHMSG; RO i Error reading handler 

CALL HLERR > See if should Abort initialization 

BR 2* 

Set address of handler entry point and compute address beyond 
end of the handler. 



CLR 


HANPAR(R4) 


MOV 


R5, RO 


MOV 


HANSIZ<R4), R3 


ADD 


R3, RO 


CALL 


CHKMEM 



021210 
021214 
021222 
021224 



021226 
021230 



010564 
062764 
006303 
060305 



010503 
004737 



OOOOOOG 

000006 OOOOOOG 



1*: 



MOV R5, HANENT(R4) 

ADD #6,HANENT<R4) 

ASL R3 

ADD R3, R5 



i Set address of handler entry point 
; <Point to fourth word of handler) 
/Convert handler size to bytes 
; Point beyond end of handler 



Set up table of addresses of support routines at end of handler. 



022010' 



MOV 
CALL 



R5, R3 
STHNPV 



; Get address past end of handler 
; Set up pointer vector in handler 



021234 004737 022152 



021240 
021242 



012603 
000207 



2*: 



If handler has any load-time exectuion code, run it now 

CALL DOHNLC ; Run any load-time code for handler 

Finished 

MOV (SP)+, R3 
RETURN 
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021246 012704 000002 



021252 005764 OOOOOOG 

021256 001402 



021260 004737 021302' 



021264 062704 000002 
021270 020437 0000000 
021274 101766 



021276 012604 
021300 000207 
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. SBTTL GETHNH — Load handlers into extended memory 

GETHNH is called to load those handlers that can be placed in extended 
memory. The status tables for these devices have already been set up 
by GETHNL. 

Inputs: 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of new top of free memory area. 



GETHNH: MOV 



R4, "<SP) 



Begin looking for handlers that are to be loaded into extended memory. 
GETHNL stored a non-zero (but meaningless) value in the HANPAR entry 
for each handler that is to be mapped. 

MOV #2* R4 i Get index for first device entry 

See if this device has a mapped handler 



:l«: TST HANPAR <R4) 

BEG 2$ 



; Is this handler mapped?" 
i Bt if not 



We found an entry for a device with a mapped handler. 
Load the handier. 

CALL LDHNHI i Load a mapped handler 

Look for more mapped handlers 



>*: 



ADD 


#2>R4 


CMP 


R4, NUMDEV 


BLOS 


1* 


Finished 





; Increment device index 
^Checked all devices? 
i Loop if not 



MOV <SP>+>R4 
RETURN 
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i 
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4 

5 

6 

7 
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. 3BTTL LDHNHI — Luad device handlei- into extended fnentury 

LDHNHI is called to load a device handler into extended memory. 

Inputs: 
R4 = Device index number. 
R5 == 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of new top of free memory area. 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



021306 010346 
021310 010446 



021312 016437 0000000 000202' 

021320 016437 OOOOOOG 000146' 

021326 

021346 103006 

021350 012700 001510' 

021354 004737 022102' 

021360 000137 021770' 



021364 013702 000152' 

021370 

021424 016237 OOOOOOG 000240' 



021432 012764 0000060 OOOOOOG 



I: 


MOV 


R1,-(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 



021440 016402 OOOOOOG 

021444 005202 

021446 042702 000001 

021452 010200 

021454 062700 000077 

021460 072027 177772 

021464 060037 OOOOOOG 

021470 160005 

021472 010564 OOOOOOG 

021476 010537 000126' 

021502 012737 000001 000142 



021510 010203 

021512 020327 001000 

021516 101402 

021520 012703 001000 



Open channel 1 to the handler file. 

MOV PNAME(R4)/ HANNAM+2 ; Set the device name for the lookup 

MOV PNAME(R4), CURNAMj Set name in case ue have an error 

.LOOKUP #AREA, #l>#HANNAMi Try to open the handler file 

BCC 8* i Br if we found the handler file 

MOV #CFHMSG, RO ; Can't find handler 

CALL HLERR i See if should Abort initialization 

JMP 9* 

Read block of the handier file and extract some information 

8*: MOV WRKBUF, R2 i Get address of work buffer 

. READW #AREA. #1, R2, #256. , #0 ; Read block of handler 
MOV H. GEN (R2), HGENFL; Save handler sysgen flags 

Set virtual address of handler entry point 

MOV #VPAR5+6, HANENT(R4) ; Set virtual addr of handler entry point 

Get information about the size of the handler and determine the 
address in extended memory where the handler is to be loaded. 

i Get size of handler (bytes) 
iMake sure handler size is even 

; Round up to # 64-byte blocks 

i Get # 64-byte blocks for handler 

^Accumulate total space for mapped handlers 

i Reserve room for handler 

i Set mapping value for handler 

i Set initial PAR base for handler 

i Set # of block to read from file 

Begin loop to read handler into memory 

1*: MOV R2. R3 ; Get remaining size of handler 

) Compare with max we can read at one time 
i Br if we can read remainder of handler 
; Read one block 



MOV 


HANSIZ(R4),R2 


INC 


R2 


BIC 


#1, R2 


MOV 


R2, RO 


ADD 


#63. . RO 


ASH 


#-6, RO 


ADD 


RO, MHNSIZ 


SUB 


RO, R5 


MOV 


R5, HANPAR(R4) 


MOV 


R5, HMAP 


MOV 


#1,FILBLK 



MOV 


R2, R3 


CMP 


R3, #512. 


BLOS 


2* 


MOV 


#512. , R3 
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~ Load device handler into extended memory 



021524 



021526 
021530 
021534 
021570 
021572 
021576 
021602 



021604 
021610 
021616 
021622 
021630 
021636 
021642 
021644 
021652 
021654 
021656 
021662 
021664 
021672 
021700 
021704 



021712 
021720 
021724 
021726 



021730 
021734 
021740 
021744 
021750 



021754 
021760 
021764 



021770 



006203 
013701 

103005 
012700 
004737 
000472 



013746 
013737 
052737 
105737 
001403 
052737 
012120 
077302 
105737 
001403 
042737 
042737 
012637 



062737 
005237 
005702 
001270 



012703 
066403 
004737 
004737 
004737 



010537 
004737 
013705 



?*: 



jUB 



R3, R2 



; Reduce amt of handler left to read 



Read next block of handler 



000152' 



001552' 
022102' 



ASR R3 i Get # words to read 

MOV WRKBUF. Rl i Get address of buffer for read 

. READW #AREA, #1, R1,R3, FILBLK ; Read a block 

BCC 3* ; Br if read ok 

MOV #ERHMSG/ RO ; Get error message 

CALL HLERR ; See if should Abort initialization 

BR 9* 



Move the code we just read into 



XM arss for the handler 



012700 OOOOOOG 



3*: 



OOOOOOG 
000126' 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



4*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 5*: 
OOOOOOG 



MOV #VPAR5, RO 

DISABL 

MOV @#KPAR5, -(SP) 

MOV HMAP, S#KPAR5 

BIS #MMENBL. @#SROMMR 

TSTB MEM256 

BEQ 4* 

BIS #EMMAP. (ettSRSHMR 

MOV <Rl)-4-> (R0) + 

SOB R3i 4* 

TSTB MEM256 

BEQ 5* 

BIC #EMMAP, e#SR3MMR 

BIC #MMENBL, @#SROMMR 

MOV (SP)+. @#KPAR5 

ENABL 



region 

5 
area 



Get virtual address of mapped 
*•«■ Disable interrupts #■«• 

Save current mapping of PAR 

Set up mapping to get to XM 

Enable memory management 

Does machine have > 256KB? 

Br if not 

Enable extended inemury addressing 

Move from WRKBUF to XM region 

Loop till all moved 

Does machine have > 256KB? 

Br if not 

Disable extended memory addressing 

Enable memory management 

Replace PAR 5 mapping 
*# Enable interrupts ** 



See if there is more to read 



000010 000126 
000142' 



ADD 
INC 
TST 
BNE 



#8. , HMAP 

FILBLK 

R2 

1* 



; Increase XM region base 
i Increment file block number 
i Is there more to readT' 
J Loop if more to read 



OOOOOOG 
OOOOOOG 
022652' 
022010' 



We have finished moving the handler into its XM region. 

Set up addresses of system routines in a vector at the end of the handler 

Get virtual address of handler base 

Get virtual address beyond end of handler 

; ; Map KPAR5 to the handler 

i i Set up handler pointer vector 



If 



000134' 
022152' 
000134' 



MOV 


#VPAR5, R3 ; 


ADD 


HANSIZ<R4),R3 i 


CALL 


HANMAP i 


CALL 


3THNPV i 


CALL 


HANUMP i 


hand 1 er 


has any load-time i 


MOV 


R5, FMEMHI i 


CALL 


DOHNLC ; 


MOV 


FMEMHI, R5 ; 



Close the handler file 
9*: . CLOSE #1 



Restore mapping 

code, run it now 

Set addr of top of free memory area 
Run any ioad-time code for handler 
Get new top of free memory address 



iClose the handler file 
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LDHNHI — Load device handler into extended memory 



f 


ii5 






116 








117 


021776 


012604 




118 


022000 


012603 


1 


119 


022002 


012602 




120 


022004 


012601 


i 


121 


022006 


000207 


i 








' r 









r-inasnea 

MOV 
MOV 
MOV 
MOV 



(SP)+, R4 
<SP)+, R3 
(SP)+, R2 
(SP)+. Rl 



RETURN 
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— TSX s 


ttartup initializ 


MACRO 


STHNPV - 


— Initialize pointer vector in 


1 

2 










3 










4 










5 










6 










7 










8 










9 










10 






, 




11 


022010 


010346 






12 










13 










14 










15 


022012 


012743 


OOOOOOG 




16 


022016 


012743 


OOOOOOG 




17 


022022 


032737 


OOOOOOG 


000240 


18 


022030 


001402 






19 


022032 


012743 


OOOOOOG 




20 


022036 


032737 


OOOOOOG 


000240 


21 


022044 


001402 






22 


022046 


012743 


OOOOOOG 




23 


022052 


012743 


OOOOOOG 




24 


022056 


012743 


OOOOOOG 




25 


022062 


012743 


OOOOOOG 




26 


022066 


012743 


OOOOOOG 




27 


022072 


012743 


OOOOOOG 




28 










29 










30 










31 


022076 


012603 






32 


022100 


000207 







^05.05 Tuesday 17-Jan-89 13:55 Page 58 
a handler 



. SBTTL STHNPV 



Initialize pointer vector in a handler 



STHNPV is called to initialize the pointer vector at the end of a 
handler which provides the addresses of various system routines to the 
handl er. 

Inputs: 
R3 = Address beyond the end of the handler. 
HGENFL = Sysgen option flags for the handler being loaded. 



STHNPV: MOV 

i 

MOV 
MOV 
BIT 
BEQ 
MOV 

2*: BIT 
BEQ 
MOV 

3*: MOV 
MOV 
MOV 
MOV 
MOV 

Finished 



R3, -(SP) 



isss in the pointer vector 



#FORK, -<R3) 

#INTEN, -(R3) 

#SG*IDT, HGENFL 

2* 

tlOTIMR, -(R3) 

#SG*ELG, HGENFL 

3* 

#ERRLOG, -<R3) 

#PTWRD, -<R3) 

#PTBYr, -<R3) 

#GTBYr> -<R3) 

#MPPHY, -<R3) 

#RELOC, -(R3) 



MOV (SP)+, R3 
RETURN 



j Address of fork routine 

i Address of inten routine 

i Does handler want timeout support? 

; Br if not 

i Set address of timeout support routine 

/Does handler want error logging support? 

i Br if not 

> Set address of error logging routine 
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Page 59 



1 
2 
3 
4 

5 022102 

6 022104 

7 022110 

8 022112 

9 022120 

10 022124 

11 022130 

12 022134 

13 022142 

14 022146 

15 022150 



Error occured while loading device handler. 



RO = 



010001 
105737 
001416 



013700 
004737 

000137 
000261 
000207 



HLERR : 



ooooooe 



000146' 
030020 ' 

004102 ' 



9*: 



error message add 


MOV 


RO, Rl 


TSTB 


VINABT 


BEQ 


9* 


. PRINT 


#TSXHD 


. PRINT 


Rl 


MOV 


CURNAM, RO 


CALL 


PRTR50 


. PRINT 


#CRLF 


JMP 


INISTP 


SEC 




RETURN 





CURNAM 



device name. 



SAVE ERROR MESSAGE ADDRESS 

ABORT OR JUST PRINT MESSAGE? 

BR IF NOT ABORT 

PRINT ERROR MESSAGE HEADING 

PRINT ERROR MESSAGE 

GET RAD50 DEVICE NAME 

PRINT DEVICE NAME 

j Aii un I ii-^x I ifM-i. /.f^ I X uiN 
J MAKE SURE CARRY IS SET 
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— Execute and handler load/fetch code 



022152 010146 

022154 010246 

022156 010346 

022160 010446 

022162 010546 



022164 016405 0000000 
022170 004737 022652' 
022174 016500 000004 



022200 004737 



Oc 



26' 



022204 020027 000240 

022210 103516 

022212 020027 000277 

022216 101113 

022220 132700 000004 

022224 001510 



022226 013702 000152' 

022232 

022266 022227 031066 

022272 001065 

022274 016203 000004 

022300 001462 



022302 020327 001000 

022306 103424 

022310 010302 

022312 072227 177767 

022316 042702 177400 
022322 



022360 010437 000144' 

022364 042703 177000 

022370 010300 

022372 063700 000152' 



SBTTL DOHNLC — Execute and handler load/fetch code 



If the handler being loaded has any Load-time execution code, read it 
into our work buffer and execute it now. 

Inputs: 
R4 = Device index number of handler that is being loaded. 

Outputs: 
C-flag is set on return if load code signals an error during its 



i execution. 




DOHNLC: MOV 


R 1 , - < SP ) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5i -(SP) 



MOV 


HANENT<R4),R5 


CALL 


HANMAP 


MOV 


4(R5), RO 


CALL 


HAIMUMP 


CMP 


R0> #240 


BLQ 


7* 


CMP 


RO, #277 


BHI 


7* 


BITB 


#4, RO 


BEQ 


7* 



Examine 1st word of handler to see if it could have any load-time code. 

Get address of handler entry point 

> i Map KparS to handier if mapped handler 

i ; Get Ist instruction located at 4 in handler 

Restore normal mapping 

Is it a NOP? 

Br if can't be any load code 

Br if can't be any load code 
Is there load code? 
Br if not 

Handler may have load code. 

Read block of handler and get offset to load code. 

MOV WRKBUF, R2 i Get addr of our work buffer 

. READW #AREA>#1>R2, #256. , #0 ; Read block of handler 

CMP (R2)+, #'^RHAN J Is this a new type handler? 

BNE 7* i Br if not 

MOV 4(R2),R3 J Get offset to load code 

BEQ 7* J Br if there is none 

There is load-time code. 

Read into WRKBUF the portion of the handler with the load code. 

Is load code in block of handler? 
Br if yes 

Get offset to start of load code 
Convert to a block number 
Clear all but block number 
#AREA, #1.. WRKBUF. #512. ,R2 i Read 2 blocks from handler file 

The load code is now in WRKBUF. Set up and execute it. 

1$: MOV R4/ CURDEV i Save current device index number 

Get offset within block of load code entry pt 
Get entry point offset 
Add base address 



CMP 


R3, #1000 


BLO 


1* 


MOV 


R3, R2 


ASH 


#-9 , R2 


BIC 


#'X377, R2 


. READW 


#AREA, #1.. 



MOV 


R4, CURDEV 


BIC 


#•''0777, R3 


MOV 


R3, RO 


ADD 


WRKBUF, RO 
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58 022376 

59 022402 

60 022406 

61 022412 

62 022416 

63 022420 

64 022424 

65 022430 

66 022432 
67 

68 
69 
70 

71 022434 

72 022442 

73 022446 

74 022450 
75 

76 
77 

78 022452 

79 022460 

80 022464 
81 

82 
83 

84 022466 

85 022470 

86 022472 

87 022474 

88 022476 

89 022500 



013701 
012702 
012703 
012705 
060405 
004737 
012704 
004710 
103407 



012737 
004737 
000241 
000406 



012737 
004737 
000261 



012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOC 
000004 
OOOOOOG 

022652' 
022502 ' 



MDV 


RPRVEC>Ri 


MOV 


#MAXDEV*2, R 


MOV 


#4, R3 


MOV 


#HANENT, R5 


ADD 


R4, R5 


CALL 


HANMAP 


MOV 


#LDREAD, R4 


CALL 


(RO) 


BCS 


2* 



Fetch/load code ran ok. 
Turn off handler mapping. 



001400 OOOOOOG 

)22'; 



7*: 



MOV 


#1400>e#KPAR6 


CALL 


HANUMP 


CLC 




BR 


9* 



Page 60-1 



Get pointer to GETVEC routine for Pro 
Get 2*# entries in device tables 
Set code saying this is load code 
Point to handler entry address vector 
Point to entry cell for this handler 

; Map Kpar5 to handler if it is a mapped 

i Get pointer to Read routine 

j Execute the load code 

> Br if handier load code signaled an error 



j i / Restore original mapping for RT-11 

j Unmap the handler 

i Clear the carry flag for return 



Error occurred in fetch/load code 



001400 OOOOOOG 2*: 
022726 ' 



9*: 



MOV 


#1400, @#KPAR6 


CALL 


HANUMP 


SEC 




~ i n i B h e d 




MOV 


<SP)+>R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





;; Restore original mapping for RT-11 

Unmap the handier 

Set the carry flag for return 
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— Perform I/O for handler load code 



. 3BTTL LDREAD 



p£?rform I/O for handler load code 



I 
I 

f 



This routine performs Read operations for handler load code. 
It simulates the operation of the bootstrap read routine. 
When called, Channel 1 must be open to the handler file. 

Inputs: 
RO = Block number within handler file to be read. 
Rl = Number of words to read. 
R2 = Buffer address 

Outputs: 

C-flag is set if a read error occurs 



022502 010046 
022504 010446 
022506 010004 



022510 105737 0000000 

022514 001402 

022516 013746 0000000 

022522 013746 OQOOQGQ 

022526 013746 0000000 

022532 013746 0000000 

022536 012737 001400 0000000 



022544 004737 022726 ' 



LDREAD: MOV 
MOV 
MOV 



RO, -<SP) 
R4, -<SP) 
RO, R4 



> > / 

i i 



i Get starting block number 

Save current mapping information 



1*. 



TSTB MEM256 

BE<i 1* 

MOV @#SR 3MMR , - ( SP ) 

MOV e#3R OMMR , - ( SP ) 

MOV @#KPAR5, -<SP) 

MOV e#KPAR6, -<SP) 

MOV #1400* @#KPAR6 

Turn off handler mapping 

CALL HANUMP 



Does machine have 

Br if not 

Save extended memory address register 

Save memory mapping 

Save current KPAR5 mapping 

Save current KPAR6 mapping 

Restore original mapping for RT-11 



Turn off handler mapping 



022550 
022602 



103420 



Read the requested data from the handler 

. READW #AREA, #1, R2, Rl, R4 ; Read the blocks 
BCS 9* ; Br if read error 

Restore handler mapping 



c 
f 

< 
i 

€ 



022604 013704 000144' 
022610 004737 022652' 



022614 012637 OOOOOOG 

022620 012637 OOOOOOG 

022624 012637 OOOOOOG 

022630 105737 OOOOOOG 

022634 001402 

022636 012637 OOOOOOG 



022642 000241 

022644 012604 

022646 012600 

022650 000207 



MOV 
CALL 



CURDEV, R4 
HANMAP 



Restore mapping information 



MOV 


<SP)+, @#KPAR6 


MOV 


(SP)+, @#KPAR5 


MOV 


<SP)+, @#SROMMR 


TSTB 


MEM256 


BEQ 


2* 


MOV 


(SP)+, @#SR3MMR 


> Finished 




2*: CLC 




9*: MOV 


<SP)+, R4 


MOV 


<SP)+, RO 


RETURN 





; Get current device index 
i i i Map Kpar5 if necessary 



; Restore KPAR6 mapping 

j Restore KPAR5 mapping 

i Restore memory mapping 

; Does machine have > 256? 

i Br if not 

; Restore extended memory address register 



i Signal success on return 
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Set up KPAR5 to access a mapped handler 



SBTTL HANMAP 



iset up KPAR5 to access a mapped handler 



022652 



022660 012737 OOOOOOG OOOOOOG 



022666 005764 0000000 
022672 001403 



This routine is called to determine if a handler is mapped and if so 

to turn on mapping and set up KPAR5 to access the mapped handler. 

If the handler is not mapped> mapping is not turned on and KPAR5 is 

not altered. 

Interrupts are left disabled by this routine. 

In addition to setting up mapping* this routine also changes the RMON 

pointer to point to the TSX~Plus simulated RMON vector. 

Inputs: 
R4 ~ Device index number 

HANMAP : 

Disable interrupts 

DISABL ;;;Di5able interrupts 

Change RMON pointer to point to TSX-Plus vector 

MOV #MONVEC, e#RMON ; j ; Say TSX-Plus is the monitor 
See if this handler is mapped 



TST HANPAR(R4) 
!3EQ 9* 

This handler is mapped. 

Set up mapping to access it. 



i i i Ib this handler mappedT' 
• • ■ Br if not 



022674 016437 OOOOOOG OOOOOOG MOV 

022702 052737 OOOOOOG OOOOOOG 9*: BIS 

022710 105737 OOOOOOG TSTB 

022714 001403 BEQ 

022716 052737 OOOOOOG OOOOOOG BIS 



HANPAR<R4)>e#KPAR5j i iMap KPAR5 to the handler code 



#MMENBL, e#SROMMR 

MEM256 

10* 

#EMMAP. e#SR3MMR 



; Enable memory mapping 

j Does machine have > 256KB? 

i Br if not 

i Enable extended memory addressing 



022724 000207 



022726 



Finished 

10*: RETURN 

.SBTTL HANUMP — Turn off memory mapping to a handler 

This routine is the companion to HANMAP. It turns off memory mapping 
and restores KPAR5 to its normal mapping value. 

Enter with interrupts disabled. Interrupts are enabled on return. 
This routine also changes the RMON pointer back to RT~11. 

HANUMP : 

Turn off memory management 



022726 105737 OOOOOOG TSTB 

022732 001403 BEO 

022734 042737 OOOOOOG OOOOOOG BIC 

022742 042737 OOOOOOG OOOOOOG 1*: BIC 

022750 012737 001200 OOOOOOG MOV 



MEM256 

1* 

#EMMAP, @#SR3MMR 

#MMENBL, @#SROMMR 

#1200, @#KPAR5 



/Does machine have > 256KB? 

i Br if not 

; Turn off extended memory addressing 

i Turn off memory mapping 

J Reset KPAR5 to its normal mapping 
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58 
59 
60 



61 022756 013737 000046' 0000000 

62 ; 

63 i 

64 i 

65 022764 

66 5 

67 i Finished 

68 ; 

69 022772 000207 RETURN 



Restore RMQN pointer to RTll 

MOV RTMNVC, e#RMON ;; i Reset RMON pointer 
Enable interrupts 

ENABL 



{Enable interrupts 
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— Turn off memory mapping to a handler 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



ooooooe 



022774 010246 



022776 005002 

023000 013701 

023004 005721 

023006 005711 

023010 001002 

023012 010102 

023014 000412 

023016 021127 

023022 001412 

023024 021561 

023030 001004 

023032 026561 

023040 001417 

023042 062701 000012 

023046 000757 



177777 
000006 
000002 



000010 



, IF EQ* 'CPRDASri"!!?- .• No handler XM suppurt if Pro— Only 
. SBTTL FNDHRB> HANXMR Inoperative Pro versions 

None of the current device handlers on the Pro require handler XM 
region support. Make sure they return intelligent errors if 
someone does try to use them. 



. ENABL LSB 

FNDHRB: CLR Rl 

BR 1* 

HANXMR: CLR R2 
1*; SEC 

RETURN 

. DSABL LSB 



j Point to next region control block (none) 
j Go signal error and return 

j Return largest possible region size (none) 
i Signal error on reciuest 



. IFF 



i EQ. <PR0ASM-1> i Include handler XM support for 11 versions 



3BTTL FNDHRB — "Iry to find a handler global region 

This routine is called to try to locate an allocated XM region with 

a specified name. 

If a region control block with the specified name cannot be found* 

the address of a free one is returned and the specified name is stored 

into the free block. 

Inputs: 
R5 = Pointer to 2~word cell containing RadSO name of region to be found. 

Outputs: 
C-flag cleared ==> Found the specified RCB. 

Rl = Address of the RCB 
C-flag set ==> Could not find the specified RCB. 

Rl == Pointer to a free RCB or if no available RCB's. 

FNDHRB: MOV R2, -<SP) 

Search for specified RCB and also remember if we see a free RCB 

Say no free RCB found 
Point to start of RCB area 
Skip over -1 word at front 
What is the status of this RCB 
Br if this is not a free RCB 
Remember address of a free RCB 



1*: 



2*: 



3*: 



CLR 


R2 


MOV 


HANRCB, Rl 


TST 


(Rl) + 


TST 


(Rl) 


BNE 


2* 


MOV 


R1,R2 


BR 


3* 


CMP 


<Rl),#-i 


BEQ 


4* 


CMP 


(R5), 6<R1 ) 


BNE 


3* 


CMP 


2(R5), lO(Rl) 


BEQ 


6* 


ADD 


#12, Rl 


BR 


1* 



Are we at the end of the list? 

Br if yes 

Compare the names 

Br if don't match 

Compare 2nd half of name 

Br if found the RCB we were searching for 

Point to the next RCB 

Continue searching 



We could not find the specified RCB. 

If there was a free one> initialize the name. 
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TSINIT - 


— TSX s 


tartup initializ 


MACRO 


FNDHRB - 


-- Try t 


o find a 


handler 


global 


58 


023050 


010201 






59 


023052 


001410 






60 


023054 


011561 


000006 




61 


023060 


016561 


000002 


000010 


62 


023066 


063761 


000144' 


000010 


63 


023074 


000261 






64 


023076 


000401 






65 










66 










67 










68 


023100 


000241 






69 










70 










71 










72 


023102 


012602 






73 


023104 


000207 







V05. 05 

reg ion 

4*: 
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5*: 



MOV 
BEQ 
MOV 
MOV 
ADD 
SEC 
BR 



R2, Ri 

5* 

<R5), 6(R1) 

2(R5), lO(Rl) 

CURDEV, 10<R1> 

9* 



> We found the RCB 
6*; CLC 

i Finished 



9*: 



MOV ( SP ) +, R2 
RETURN 



i4a3 there a free RCB? 

Br if not 

Set name in the RCB 

(2nd word of name) 

Make name unique to device 

Signal that lue did not find 



the RCB 



; Signal success on return 
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— Allocate XM region during handler load 



023106 010046 



023110 013700 000134' 
023114 163700 000136' 
023120 020200 
101006 



023124 160237 000134' 

023130 013701 000134' 

023134 000241 

023136 000402 



023140 010002 
023142 000261 



023144 012600 
023146 000207 



. SBTTL HANXMR — Aiiocate XM region during handler load 

This routine can be called by a handler as its is being loaded to 
allocate an XM region for the handler. 

Inputs: 
R2 = Number of 64-byte units needed for XM region 

Outputs: 
C~flag cleared ==> Successfully allocated a region 

Rl = 64-byte address of base of allocated region 

R2 = Requested size 
Cflag set ===> Could not allocate the region 

R2 = Largest available region size 

Notes: FMEMLO and FMEMHI are used by this routine to indicate the 
bottom and top of the free memory area that can be allocated. 
The allocation is done from the top of free memory downward. 
FMEMHI is updated to have the new top of free memory after the 
allocation has been done. 



HANXMR: MOV 



RO, -(SP> 



MOV 


FMEMHI. RO 


SUB 


FMEMLO, RO 


CMP 


R2, RO 


BHI 


e* 



Get the total amount of free memory space available now 

and see if the requested region can be allocated. 

Top of free memory 

-Base of free memory 

Do we have room for the requested region? 

Br if not 

There is room for the region so allocate it from the top of memory 

iAllocate the region 

i Return the address of the base of the region 

i Signal success on return 

We are not able to allocate the region. 

Return with C-flag set and the size of the largest possible region in R2. 



SUB 


R2, FMEMHI 


MOV 


FMEMHI, Rl 


CLC 




BR 


9* 



8$: 



MOV 
SEC 

Fini shed 



RO, R2 



; Get the size of the largest possible region 
i Signal failure on return 



9*: 



MOV 
RETURN 

. ENDC 



<SP)+, RO 



i EQ, <PR0ASM-1> 
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— Allocate XM region during handler load 



023150 010146 



023152 005727 

023156 001017 

023160 032737 

023166 001013 



OOOOOOG 

00000 i 000242 



IF NE, <PR0ASM-1> i If assembling for PDP-11 
. SDTTL SETMIO — Set up information about mapped devices 

SETMID is called to set up information about which devices have to have 
their I/O mapped through system buffers. I/O mapping is done for DMA 
devices with 18-bit controllers being used on Q-bus systems with more 
than 256Kb of memory. 
The DX*MAP flag is set in the DVFLAG word for devices that require mapping. 

Inputs: 
R5 = Pointer to loui-memory free area 

Outputs: 
MIOFLAG = 0==>I/0 mapping not required for any devicei 

l==>I/0 mapping required for some device. 
R5 = Pointer to new low-memory free area. 

SETMIO: MOV R1,-(SP) 

Determine if this machine requires mapping at all 

i Are we debugging mapped I/O system? 

; Br if yes 

i Is this a Q-~bu3 machine with mure than 256Kb7' 

j Br if yes 

This is not a Q-bus system with more than 256Kb. 
Mapping is not required at all. 



TST 


#MIODBG 


BNE 


2* 


BIT 


#£XTLSI, ICONFG 


BNE 


2* 



023170 012701 

023174 042761 

023202 062701 

023206 020137 

023212 101770 

023214 000464 



000002 

OOOOOOG OOOOOOG 1*: 

000002 

OOOOOOG 



MOV 

BIG 

ADD 

CMP 

BLOS 

BR 



#2*R1 ;Get initial device index number 

#DX*MAP,DVFLAG<R1) i Clear mapped-I/0 flag 
#2.R1 ;Get next device index 

Rl.NUMDEV ;More to do? 
1* ; Br if yes 

9* 



This is a Q-bus system with more than 256Kb. 
See if any devices have requested mapped I/O. 



023216 005000 

023220 012701 000002 

023224 056100 OOOOOOG 

023230 062701 000002 

023234 020137 OOOOOOG 

023240 101771 

023242 032700 OOOOOOG 

023246 001447 



023250 105237 OOOOOOG 



023254 113701 OOOOOOG 
023260 070127 OOOOOOG 
023264 062701 OOOOOOC 



2*: 


CLR 


RO 




MOV 


#2, Rl 


3*: 


BIS 


DVFLAG<R1),R0 




ADD 


#2, Rl 




CMP 


R 1 , NUMDEV 




BLOS 


3* 




BIT 


#DX*MAP. RO 




BEQ 


9* 



I/O mapping is required 
INCB MIOFLG 



Clear composite flag word 
Initialize device index number 
Combine flags from all devices 
Get next device index number 
Checked all devices? 
Br if not 

Does any device require mapping? 
Br if not 



Remember that mapping is required 



Zero the area where we will build the control structures 

MOVB VMIOBF, Rl i Get # buffers wanted 

MUL #MI**SZ>R1 j Times size for each control block 

ADD #MIONWB*MW**SZ, Rli Add space for MIO wait blocks 
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023270 


006201 




59 


023272 


010500 




60 


023274 


005020 




61 


023276 


077102 




62 








63 








64 








65 


023300 


010537 


OOOOOOG 


66 


023304 


113700 


0000000 


67 


023310 


010501 




68 


023312 


062701 


OOOOOOG 


69 


023316 


005300 




70 


023320 


003404 




71 


023322 


010165 


OOOOOOG 


72 


023326 


010105 




73 


023330 


000767 




74 


023332 


010105 




75 


023334 


010537 


OOOOOOG 


76 


023340 


012700 


177777G 


77 


023344 


010501 




78 


023346 


062701 


OOOOOOG 


79 


023352 


010165 


OOOOOOG 


80 


023356 


010105 




81 


023360 


077007 




82 


023362 


062705 


OOOOOOG 


S3 








84 








85 








86 


023366 


012601 




87 


023370 


000207 
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4«: 



A3R 
MOv 
CLR 
SOB 



Ri 

R5/ RO 
(R0) + 
Rl. 4* 



i Get # u-iQ-rds to zero 

; Get pointer to start of area 

i Zero the entire area 



Allocate and initialize the control structures 



5*: 



6*: 



7*: 



MOV 

MOVB 

MOV 

ADD 

DEC 

BLE 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

SOB 

ADD 



9«: 



MOV 

RETURN 
. IFF 



R5, MIOBHD 

VMIOBF, RO 

R5, Rl 

#MI**SZ, Rl 

RO 

6* 

Rl, MI*LNK<R5) 

Rl, R5 

5* 

Rl, R5 

R5, MIOWHD 

#MI0NWB--1, RO 

R5, Rl 

#MW*«SZ,R1 

Rl, MW*LNK<R5) 

Rl, R5 

RO, 7* 

#MW**SZ, R5 



(SP)+, Rl 

; NE, <PROASM-i: 



Define dummy routine for Pro 

SETMIO: RETURN 

. ENDC i NE, <PR0ASM-1> 



Start of area for I/O mapping control blks 

Get # buffers wanted 

Get pointer to current control block 

Get pointer to next control block 

Need to link more togetherT' 

Br if not 

Set pointer to next control block 

Advance pointer to next block 

See if more to do 

Set pointer past last block 

Start of wait blocks 

Get # uiait blocks uanted - 1 

Get pointer to current block 

Get pointer to next block 

Set pointer to next u>ait block 

Advance pointer to next block 

Loop if more to allocate 

Allocate space for last block (with link) 
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3 








4 








5 








6 








7 








8 








9 








10 








n 








12 








13 








14 








15 


023372 


010146 




16 


023374 


010246 




17 


023376 


010346 




18 


023400 


010446 




19 


023402 


010504 




20 








21 








22 








23 


023404 


004737 


023602 ' 


24 








k'5 








26 








27 








28 


023410 


062704 


000077 


29 


023414 


042704 


000077 


30 


023420 


010437 


000140' 


31 


023424 


012702 


000516' 


32 


023430 


005762 


000000 


33 


023434 


001423 




34 


023436 


016200 


000004 


35 


023442 


016000 


0000000 


36 


023446 


012701 


000746 ' 


37 


023452 


020021 




38 


023454 


001404 




39 


023456 


020127 


000754 ' 


40 


023462 


103773 




41 


023464 


000407 




42 


023466 


005262 


000002 


43 


023472 


016200 


000000 


44 


023476 


072027 


000006 


45 


023502 


060004 




46 


023504 


062702 


000006 


47 


023510 


020237 


000744 ' 


48 


023514 


103745 




49 








50 








51 








52 


023516 


020427 


030012' 


53 


023522 


103021 




54 


023524 


012705 


030074 ' 


55 


023530 


160405 




56 


023532 


072527 


177772 


57 









Determine uihich overlays go over TSINIT 



OVLPOS is called to determine which system overlays are to be placed 
over the TSINIT code (specifically, between ©OVLBAS and INITOP). 

Inputs: 
R5 = Base address in TSINIT where overlays may be loaded. 

Outputs: 
Overlay segment information is set up in OSTABL. 

OS$FLG(seg) - 0==>Load seg into high memory; l==>Load over TSINIT. 
OVLBAS = Address of location within TSINIT where overlays start. 

f?5 "■" Pointer past last overlay loaded over TSINIT. 



DVL 



POS: 


MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, R4 



1*: 



6$: 



4$: 



2^: 



i Get address where we may load overlays 

Build the table that holds information about the overlays 

CALL OVLBLD .; Build overlay information table 

f-irst determine how much space will be used by those overlays that are 
forced to be loaded over TSINIT. 

; Bound address to 64-byte boundary 

Remember address where we load overlays 

Point to start of table 

Is this overlay to be loaded? 

Br if not 

Point to linker-built entry 

Get Rad50 segment ID 

Point to table of overlays to go over TSINIT 

Must this overlay go over TSINIT? 

Br if yes 

End of low-overlay table? 

Br if not 

This overlay is not forced over TSINIT 

Set flag saying load over TSINIT 

Get # 64-bytB blocks needed for overlay 

Get # bytes needed for overlay 

Advance address within TSINIT 

Point to entry for next segment 

Have we finished? 

Loop if not 

Determine how much memory space is available in TSINIT for other overlays 

i Any space left for other overlays? 

.; Br if not 

; Point to top of overlay area 

; Total space available for overlays 

i Convert to # 64-byte blocks 



ADD 


#63. , R4 


BIC 


#77, R4 


MOV 


R4> OVLBAS 


MOV 


#OSTABL, R2 


TST 


0S*SIZ(R2) 


BE(3 


2* 


MOV 


OS*OVL ( R2 ) . RO 


MOV 


0. ADR(RO), RO 


MOV 


#L0W0VL>R1 


CMP 


RO, (Rl)+ 


BEQ 


4* 


CMP 


R 1 , #LOWEND 


BLO 


6* 


BR 


2* 


INC 


0S*FLG(R2) 


MOV 


0S*SIZ(R2)>R0 


ASH 


#6, RO 


ADD 


RO, R4 


ADD 


#OS«*SZ, R2 


CMP 


R2, OSLASI 


BLO 


1* 



CMP 


R4, #INITOP- 50. 


BHIS 


9* 


MOV 


#INI TOP, R5 


SUB 


R4. R5 


ASH 


#-6, R5 
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58 
59 
60 
61 

62 023536 

63 023542 

64 023544 

65 023550 

66 023554 

67 023556 

68 023562 

69 023564 
70 

71 
72 

73 023566 

74 023570 

75 023572 

76 023574 

77 023576 

78 023600 



Now begin 1 
We do this 
the overlay 



004737 
103411 
005262 
016200 
160005 
072027 
060004 
000764 



010405 
012604 
012603 
012602 
012601 
000207 



025012' 

000002 
000000 



3*: 



9*: 



oop luhich determines which other overlays go over TSINIT. 
in the order of largest to smallest to try to fill 
avBa as completely as possible. 

Try to find largest overlay that will fit 

Br if no more overlays will fit 

Remember to load over TSINIT 

Get # 64-byte blocks needed for overlay 

Reduce remaining free space in TSINIT 

Get # bytes needed for overlay 

Advance overlay address in TSINIT 

See if we can find more segments to load 



; Return top-of-overlay address in R5 



CALL 


OVLTRY 


BCS 


9* 


INC 


0S*FLG(R2) 


MOV 


0S*SIZ<R2.>,R0 


SUB 


RO, R5 


ASH 


#6, RO 


ADD 


RO, R4 ; 


BR 


3* i 


F i n i & h e d 




MOV 


R4, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+. R2 


MOV 


<SP)+, Rl 


RETURN 
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023602 


010146 




OVL 


11 


023604 


010246 






12 


023606 


010346 






13 










14 










15 










16 


023610 


013702 


000152' 




17 


023614 








IS 


023650 


103444 






19 


023652 


016201 


000064 




20 


023656 


001012 






21 










22 










23 










24 


023660 


012737 


000137 001000 




25 


023666 


01273 7 


OOOOOOQ OOIOOS 




26 


023674 


012701 


001104 




27 


023700 


010137 


OOOOOOG 




28 










29 










30 










31 


023704 


012703 


000516' 


15* 


32 


023710 


010163 


000004 


11* 


33 


023714 


005063 


000002 




34 


023720 


004737 


024122' 




35 


023724 


010263 


000000 




36 


023730 


062703 


000006 




37 


023734 


062701 


000006 


12* 


38 


023740 


021127 


004537 




39 


023744 


001361 






40 


023746 


010337 


000744 ' 




41 










42 








; 


43 










44 


023752 


012603 






45 


023754 


012602 






46 


023756 


012601 






47 


023760 


000207 






48 








.» 


49 








; 


50 








f 


51 


023762 






22* 


52 


023770 








53 


023776 


000137 


004102' 
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. SBTTL OVLBLB 



Build overlay information table 



OVLBLD is called to build an overlay information table that is used 
by TSINIT while loading TSX overlays into memory. 

Outputs: 
Overlay segment information is set up in OSTABL. 
OSLAST = Pointer past last entry in OSTABL. 



MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -<SP) 



Read 1st block of SAV file to get pointer to overlay table 

MOV WRKBUF, R2 ; Point to work buffer 

. READW #AREA, #17, R2, #256. , #0 i read first block of the save file 

BCS 22* i Br if error on read 

MOV 64(R2),R1 ; point to the overlay table 

BNE 15* j br if overlays exist 

Must be verion 3B overiaqs &tructure at absolute location. 



MOV #137, e# 1000 

MUV #*OVRH, e#100c' 

MOV #1104, Rl 

MOV Rl,OVRADD 



i position jump instrucion over 3b ovly handier 

.position overlay intercept location 

i point to the overlay table 

i save the address of the overlay table 



Initialize the table that holds information about the overlays 

Point to table for overlay info 

Save pointer to overlay control block 

Assume seg ujill be loaded in high memory 

Determine if we should load this overlay 

Remember total size of overlay+data 

Point to next overlay table entry 

find the next region 

compare with a <:JSR R5, *OVRH> instruction 

Br if not at end 

Save pointer past last overlay table entry 





MOV 


#OSTABL, R3 


: 


MOV 


R1,0S*0VL(R3) 




CLR 


0S*FLG<R3) 




CALL 


ALCOVL 




MOV 


R2, 0S*SIZ<R3) 




ADD 


#OS**SZ, R3 




ADD 


#6, Rl 




CMP 


(Rl).. #4537 




BNE 


11* 




MOV 


R3, OSLAST 


Fini 


shed 






MOV 


<SP)+, R3 




MOV 


(3P)+, R2 




MOV 


(SP)+,R1 




RETURN 





Error — Read error occured while reading overlay table 

. PRINT #TSXHD 
. PRINT #RDERR 
JMP INISTP 



I 
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TSINIT - 


— TSX s 


tartup initializ 


GETMAP - 


— Load 


any mapp 


ed syste 


i 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


024002 


010146 




13 


024004 


010246 




14 


024006 


010346 




15 


024010 


010537 


OOOOOOG 


16 








17 








18 








19 








20 


024014 


012703 


000516' 


21 


024020 


004737 


024266 ' 


22 


024024 


010263 


000000 


23 


024030 


062703 


000006 


24 


024034 


020337 


000744 ' 


25 


024040 


103767 




26 








27 








28 








29 


024042 


012702 


000516' 


30 


024046 


005762 


000000 


31 


024052 


001405 




32 


024054 


005762 


000002 


33 


024060 


001002 




34 


024062 


004737 


025110' 


35 


024066 


062702 


000006 


36 


024072 


020237 


000744 ' 


37 


024076 


103763 




38 








39 








40 








41 


024100 


013700 


OOOOOOG 


42 


024104 


160500 




43 


024106 


010037 


OOOOOOG 


44 


024112 


012603 




45 


024114 


012602 




46 


024116 


012601 




47 


024120 


000207 





. iJU ! ! L «!:: I HPtfr' 



.Dad BTH^ mapped system code regions 



GETMAP is called to load those system overlays that are placed 
in hiah memoru 



Inputs: 

R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = Neil) 64-byte block number of top of free memory. 



GETMAP: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2. -(SP) 
R3, -<SP) 
R5, SMRSIZ 



; Save memory pointer at start of allocation 



MOV 


#OSTABL, R3 


CALL 


OPTOVL 


MOV 


R2. 0S*SIZ(R3) 


ADD 


#0S**SZ> R3 


CMP 


R3, OSLAST 


13LQ 


1* 



Now that most of the system initialization is completed* lue must check 
again to see which overlays need to be loaded. 

; Point to 1st overlay table entry 
1$: CALL OPTOVL i See if this segment should be loaded 

; Save # 64-byte blocks needed for overlay 
; Point to next overlay table entry 
/Checked all entries in overlay table? 
; Br if not 

Load those overlays that go into high memory 

Point to 1st overlay entry 
Is this overlay segment wanted? 
Br if not 

Load over TSINIT or into high memory? 
Br if load over TSINIT 
Load overlay into high memory 
4*: ADD #0S**S2j R2 i Point to next overlay table entry 

Have we done all overlays? 
Loop if not 



3$: 





MOV 


#OSTABL, R2 




TST 


0S*SIZ(R2) 




BEQ 


4* 




TST 


OS*FLG ( R2 > 




BNE 


4* 




CALL 


GETOVL 




ADD 


#OS*«SZ, R2 




CMP 


R2, OSLAST 




BLO 


3* 


Fini 


shed 






MOV 


SMRSIZ, RO 




SUB 


R5, RO 




MOV 


RO, SMRSIZ 




MOV 


?SP)+, R3 




MOV 


<SP)+, R2 




MOV 


<SP)+, Rl 




RETURN 





19*: MOV SMRSIZ, RO ; Get memory pointer at start of allocation 

iCalc amt of space allocated 
; Save total space used for mapped regions 
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1 
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-- TSX startup initialir MACRO V05. 05 Tuesday 17-Jan-89 13:55 Page 69 
— Allocate space for a system overlay region 



024122 010146 



024124 016301 000004 



024130 013702 000152' 

024134 

024172 10341^1 



024174 016261 000002 OOOOOOG 



024202 016102 OOOOOOG 

024206 006302 

024210 020227 020000 

024214 101014 



. SDTTL. ALCOVL — Allocate space for a system overlay region 

ALCOVL is called to determine if a system overlay region is wanted 
<ba&ed on sysqen options)/ and if it is wanted to determine how 
much space is needed for the code and data. 

Inputs: 
R3 = Pointer to overlay table entry <OS*xxx) 

Outputs: 
C~flag cleared ==> This segment is to be loaded. 
C-flag set ==Z> Do not load this overlay segment. 
R2 - # 64-Byte blocks needed for segment including data areas within it. 

ALCOVL: MOV Ri,-<SP) 

Get pointer to linker-build overlay entry for segment 

MOV 0S*0VL(R3), Rl ; Get pointer to linker-built entry for seg 

Read in the first block of the overlay segment 

MOV WRKBUF, R2 ; Point to work buffer 

. READW #AREA, #17< H2, #256. , 0. BLK(Rl) i read the first block 

BCS 3* ; Br if read error 

Save the 3 character RsriSO segment ID in the O, ADR cell of the 
linker-built overlay table entry for this segment. 

MOV 2<R2), 0. ADR<R1) > save the radSO overlay identifier 

Make sure the segment is not larger than SKb 

J get the word count of the code region 
; convert to byte count 
; check for Skb overflow 
i Br if region is too big 

Don't load some optional segments if features were not selected 
in TSGEN. 



MOV 


0. SIZ<R1>, R2 


ASL 


R2 


CMP 


R2, #20000 


BHI 


21* 



024216 004737 024266' 



CALL 



OPTOVL 



; See if we want to load this segment 



Finished 

The C-flag is set or resiet by OPTOVL. 



122 012601 
024224 000207 



024226 
024234 
024242 000137 004102' 



MOV 
RETURN 



(SP)+, Rl 



Error — Error on reading from SAV file 



3*: 



. PRINT #TSXHD 
. PRIhJT #RDERR 
JMP INISTP 



i Print heading 

J Read error 

>Abort initialization 



r 
f 

< 

i 



i 
c 
i 

t 
I 

c 

I 



Error — Insufficient memory space to load run-time systems 



TSINIT — TSX startup initializ MACRO V05. 05 Tuesday 17-Jan-S9 13:55 Page 69-1 
ALCQVL — Allocate space for a system overlay region 



58 024246 






21*; 


. PRINT 


wTSXHD 


59 024254 








. PRINT 


#T3XSIZ 


60 024262 


000137 


004102' 




JMP 


INISTP 



; PRINT HEADING 

i PRINT ERROR MESSAGE 

i ABORT INITIALIZATION 
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— TSX startup initiali2 MACRO V05. 05 Tuesday 17~Jan-S9 13:5b Page 70 

— Check for optional system overlay regions 



024266 010346 
024270 010446 
024272 010546 



024274 016305 000004 
024300 016504 OCOOOOG 



024304 016502 OOOOOOG 
024310 006302 



024312 012700 024340' 

024316 020420 

024320 001406 

024322 005720 

024324 020027 024430 ' 

024330 103772 

024332 000137 024750' 



024336 000130 



024340 
024340 
024344 
024350 
024354 
024360 
024364 
024370 



BBTTL. OPTOVL 



Check for optional system overlay regions 



OPTOVL is called to determine if a specific system overlay is or is 

not to be loaded based on sysgen options. 

This routine may also add space for buffers to the overlay regions size. 

Inputs; 
R3 = Pointer to overlay table entry for segment <OS*xxx) 

Outputs: 
C~flag cleared ==> Load this overlay. 
C-flag set ==> Do not load this overlay. 
R2 ~ # 64~byte blocks needed for code + data for the segment. 



OPTOVL 



MOV 
MOV 

MOV 



R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



Oet the name of tht; overlay segment 



MOV 0S*0VL<R3), R5 
MOV 0. ADR<R5>, R4 



i Get pointer to linker-built entry 
i Get name of the segment 



Get size of code portion uf overlay segment 



MOV 
ASL 



0. SIZ(R5), R2 



i Get # words needed by code portion of seg 
) Convert to # bytes 



1$: 



MOV 


ttOVLLST, RO 


CMP 


R4, <R0) + 


BEQ 


2* 


TST 


(R0) + 


CMP 


RO, #OVLEND 


BLO 


1* 


JMP 


00 X YES 



See if this is an optional segment that we need to deal with specially 

Point to overlay name list 

Found name of overlay? 

Br if yes 

No — Skip over address word 

Checked all names in the list? 

Loop if not 

Load this overlay 

> Branch off to processing routine 

2*: JMP @<R0)+ ; Enter processing routine for the overlay 

> Table of overlay names and processing routines 

i 

. MACRO OVLTBL NAME 

. RAD50 / 'NAME'/ 

.WORD ODR'NAME 

ENDM OVLTBL 



OVLLST 



OVLTBL USR 

OVLTBL SPL 

OVLTBL SP2 

OVLTBL LOK 

OVLTBL MSG 

OVLTBL SWP 

OVLTBL PLS 



TSUSR — File management 

TSSPOL — Spooling system 

TSSPL2 — Spooler flag pages 

TSLOCK — Shared file record locking 

TSMSG — Inter-job message communication 

TSSWAP — Job swapper 

TSPLAS — PLAS support 



I 
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TSINIT - 


— TSX s 


tartup initializ 


OPTOVL - 


— Check 


for opt 


ional sy 


58 


024374 






59 


024400 






60 


024404 






61 


024410 






62 


024414 






63 


024420 






64 


024424 






65 


024430 






66 








67 








68 








69 


024430 


013703 


0000000 


70 


024434 


070327 


OOOOOOG 


7i 


024440 


060302 




72 


024442 


000542 




73 








74 








75 








76 


024444 


005727 


OOOOOOG 


77 


024450 


001534 




78 


024452 


062702 


OOOOOOC 


79 


024456 


013703 


OOOOOOw 


80 


024462 


062703 


000007 


81 


024466 


072327 


177775 


82 


024472 


005203 




83 


024474 


042703 


000001 


84 


024500 


060302 




85 


024502 


000522 




86 








87 








88 








89 


024504 


005727 


OOOOOOG 


90 


024510 


001514 




91 


024512 


000516 




92 








93 








94 








95 


024514 


005737 


OOOOOOG 


96 


024520 


001510 




97 


024522 


005737 


OOOOOOG 


98 


024526 


001110 




99 


024530 


162702 


OOOOOOG 


100 


024534 


000505 




101 








102 








103 








104 


024536 


013703 


OOOOOOG 


105 


024542 


001477 




106 


024544 


070327 


OOOOOOG 


107 


024550 


060302 




108 


024552 


013703 


OOOOOOG 


109 


024556 


070327 


OOOOOOG 


110 


024562 


060302 




111 


024564 


013703 


OOOOOOG 


112 


024570 


005203 




113 


024572 


042703 


000001 


114 


024576 


062703 


OOOOOOG 



J Tuesday 17-Jan-89 13: 55 
TBQ ions 



DVLTBL 


3LE 


OVLTBL 


WIN 


DVLTBL 


MIO 


OVLTBL 


CLO 


OVLTBL 


DBG 


OVLTBL 


CSH 


OVLTBL 


DMP 


OVLEND: 
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TSSLE 

TSWIN 

TSMIO 

TSCLO 

TSDBUG 

TSCASH 

TSDUMP 



— Single line editor 

— Display uiindow management 

— Mapped I/O 

— CL handler 

— Program debugger 

— Data caching 

— Crash dump generator 



File fTianagement 



OORUSR: MOV 
MUL 
ADD 
BR 



VNFCSH. R3 
#FC**SZ, R3 
R3, R2 
OOXYES 



Spooling system 



OORSPL: TST 
BEG 
ADD 
MOV 
ADD 
ASH 
I IMC 
BIC 
ADD 
BR 



Spooler flag pages? 



#SPLND 




OOXNO 




#<SPLNB*512. 


>, R2; 


NSPLBL, R3 




#7.R3 




#-3, R3 




R3 




#1,R3 




R3. R2 


i 


OOXYES 


i 



; Get # file cache entries 
> Multiply by size of each entry 
^Allocate space for directory cache 
; Load the segment 



Are there any spooled devices? 

Br if not 

Reserve room for spool buffers 

Get # blocks for spool file 

Bound up to byte boundary 

Divide by 8 to get # bytes for table 

Round up to word boundary 

Add space for spool file allocation table 
Load the segment 



OORSP; 



TST 
BEQ 
BR 



#SPLND 

OOXNO 

OOXYES 



Record locking system 



OORLOK: TST 
BEQ 
TST 
BNE 
SUB 
BR 



VMXSF 

OOXNO 

VNUMDC 

OOXYES 

#DCCSIZ,R2 

OOXYES 



i Message communication system 



OORMSG: MOV 
BEQ 
MUL 
ADD 
MOV 
MUL 
ADD 
MOV 
INC 
BIC 
ADD 



VMAXMC> R3 
OOXNO 

#MB**SZ> R3 
R3, R2 
VMXMRB> R3 
#MR**SZ, R3 
R3, R2 
VMSCHR. R3 
R3 

#1. R3 
#MU$TXT, R3 



Are there any spooled devices? 
If not* don't load overlay 
Load the segment 



Any shared files? 

Br if not 

Shared file data caching wanted? 

Br if yes 

Reduce size of segment - Leave out cache code 

Load the segment 



Is message communication facility wanted? 

Br if not 

Space for message channel blocks 

Number of message request blocks 
Times size of request block 

Max # chars in a message 
Bound up to word 
Reserve whole number of words 
Plus space for message header 



c 
c 
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TSINIT ~- TSX s 


tartup initializ 


OPTOVL — Check 


for opt 


ional sy 


115 024602 


070337 


OOOOOOG 


116 024606 


060302 




117 024610 


000457 




118 






119 






120 






121 024612 


013703 


0000000 


122 024616 


001451 




123 024620 


062703 


000021 


124 024624 


072327 


177775 


125 024630 


060302 




126 024632 


000446 




127 






128 






129 






130 024634 


105737 


OOOOOOG 


131 024640 


001440 




132 024642 


000442 




133 






134 






135 






136 024644 


105737 


OOOOOOG 


137 024650 


001434 




138 024652 


000436 




139 






140 






141 






142 024654 


013703 


OOOOOOG 


143 024660 


00 1 430 




144 024662 


070327 


OOOOOOG 


145 024666 


060302 




146 024670 


000427 




147 






148 






149 






150 024672 


105737 


OOOOOOG 


151 024676 


001421 




152 024700 


000423 




153 






154 






155 






156 024702 


005727 


OOOOOOG 


157 024706 


001415 




158 024710 


000417 




159 






160 






161 






162 024712 


105737 


OOOOOOG 


163 024716 


001411 




164 024720 


000413 




165 






166 






167 






168 024722 


005737 


OOOOOOG 


169 024726 


001405 




170 024730 


000407 




171 







MACRO V05. 05 Tuesday 17-Jan-S9 13: 55 
item overlay regions 



ADD 
BR 



VMXMSG, r: 

R3, R2 
OOXYES 



i PLAS sup p or 


t 


OORPLS: MOV 


VPLAS, R3 


BEQ 


OOXNO 


ADD 


#17. >R3 


ASH 


#-3, R3 


ADD 


R3, R2 


BR 


OOXYES 


; -Job swapper 




DORSWP: TSTB 


VSWPFL 


BEQ 


OOXNO 


BR 


OOXYES 


i Single line 


editor 


DORSLE: TSTB 


V3LEDT 


BEO 


OOXNO 


BR 


QDXYES 



Display windows 



OORWIN: MOV 


VMXWIN, R3 


BEQ 


OOXNO 


MUL 


#DW**SZ> R3 


ADD 


R3, R2 


BR 


OOXYES 


; Mapped I/O 




OORMIO: TSTB 


MIOFLG 


BEQ 


OOXNO 


BR 


OOXYES 


i CL handler 




OORCLO: TST 


#CLTOTL. 


BEQ 


OOXNO 


BR 


OOXYES 



> Program debugger 

OORDBG: TSTB VDBFLG 
BEQ OOXNO 
BR OOXYES 

Data caching 

OORCSH: TST CSHALC 
BEQ OOXNO 
BR OOXYES 
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J Times maximum number of messages 
; Space for message buffers 



} PLAS support wanted? 

i Br if not 

i Bound up # blocks 

;Get # bytes needed for swap file bit map 

i Reserve room for swap file bit map 

; Load the segment 



i Is this a swapping system? 

; Br if not 

; Br if yes — Load the segment 



> Is SL editor wanted? 

; Br if not 

* Load the segment 



i Are any display windows wanted? 

; Br if not 

i Amt of space needed for window control blks 

;Add to size of overlay 

> Load the segment 



Is I/O mapping needed?" 

Br if not 

Load the segment 



;Any I/O lines? 

i Br if not 

i Yesj load the segment 



Is the program debugger wanted?' 

Br if not 

Load this segment 



Is data caching wanted? 

Br if not 

Load this segment 
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TSINIT - 


-- TSX s 


tartup initialij 


OPTOVL - 


-- Check 


for optional si 


172 








173 








174 


024732 


105737 


000000( 


175 


024736 


001401 




176 


024740 


000403 




177 








178 








179 








leo 


024742 


005002 




181 


024744 


000261 




182 


024746 


000415 




183 








184 








185 








186 


024750 


005202 




187 


024752 


042702 


000001 


188 


024756 


020227 


020000 


189 


024762 


101402 




190 


024764 


012702 


020000 


191 


024770 


062702 


000077 


192 


024774 


072227 


177772 


193 


025000 


000241 




194 








195 








196 








197 


025002 


01260J} 




198 


025004 


012604 




199 


025006 


012603 




200 


025010 


000207 





Tuesday 17-Jan-S9 13:55 Page 70-3 



Crash dump generator 



OORDMP: TSTB 
BEQ 
BR 



VSYDMP 
OOXNO 
00 X YES 



Don't load this segment 



OOXNO: 



:lr 

5EC 



BR OOXFIN 
Ludii this segment 



OOXYES: 


INC 


R2 




BIC 


#1. R2 




CMP 


R2, #8192 




BL03 


1* 




MOV 


#8192. . R 


1*: 


ADD 


#63. , R2 




ASH 


#-6, R2 




CL.C 




> f i n i 


•ihed 




OOXFIN; 


MOV 


(SP)+, R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




RETURN 





i Is dump facility wanted? 
i Br if not 
.; Br if yes 



Say no space needed for overlay 
Signal don't load the segment 



•Make sure size is even 

i Don't allouj code + data to exceed SKb 

J Br if ok 

i Notej init code in segment will truncate dat 

i Convert to # 64~byte blocks 

; Signal to load the segment 



I 
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OVLTRY — Find an overlay to place over TSINIT 



2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 025012 
15 
16 
17 

18 025014 

19 025016 

20 025022 

21 025026 

22 025030 

23 025034 
025036 
025042 
025044 
025046 

28 025050 

29 025056 

30 025060 

31 025062 

32 025066 

33 025072 
34 

35 
36 

37 025074 

38 025076 

39 025100 

40 025102 

41 025104 

42 025106 



24 
25 
26 
27 



010346 



005002 
012703 
005763 
001415 
005763 
001012 

j.'^ *-> ■* f~i r\Kr. 

10100/ 
005702 
00 1 404 
026362 
101401 
010302 
062703 
020337 
103753 



000241 
005702 
001001 
000261 
012603 
000207 



000516' 
000000 

000002 

000000 

000000 000000 



000006 
000744 ' 



1*: 



•"" r* ,1 ? * U €S 1 1 u V e I .1 ej y u ij ^ Jl c3 L. e? u v tr i " I o i IM 1 t 

OVLTRY is called to identify the largest overlay segment which 
will fit in the TSINIT area and luhich is not already marked to ao 
over TSINIT. 

Inputs: 
R5 = # 64~byte blocks available for segment in TSINIT. 

n 1 1 +• tT. >. +- ^ • 

R2 = Pointer to OSTABL entry for segment 
C-fiaq set ==> No more segments will fit. 

OVLTRY: MOV R3, -(SP) 

Begin loop to examine all segments 

Say we haven't found any segment yet 

Point to entry for 1st segment 

Is this segment to be loaded? 

Br if not 

Is this segment already over TSINIT? 

Br if yes 

Will this segment fit? 

Br if not 

Have we found any other seg yet?' 

Br if not 
:Z(R2) ; Is new seg larger than old? 
; Br if not 

i Remember largest segment 
i Point to entry for next segment 
i Have we checked all segments? 
i Loop i f not 



i Assume we found a segment 

;Did we find a segment that will fit? 

j Br if yes 

i Signal failure on return 



3*: 

2$: 



9*; 





CLR 


R2 




MOV 


#OSTABL. R3 




TST 


0S*SI2(R3) 




BEQ 


2* 




rsT 


0S*FL.G<R3> 




BNE 


2« 




CMP 


0S«SIZ<R3)> RL; 




BHI 


2« 




TST 


R2 




BEQ 


3* 




CMP 


0S*SIZ<R3)> OS 




BLOS 


2* 




MOV 


R3, R2 




ADD 


#OS**SZ, R3 




CMP 


R3, OSLAST 




BLO 


1* 


F 


inished 
CLC 






TST 


R2 




BNE 


9* 




SEC 






MOV 


<SP)+, R3 




RETURN 
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TSINIT 
SETOVL 
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Load system overlay into high memory 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



025110 



025110 166205 000000 
025114 020527 001600 
025120 103405 



025122 004737 O0447O 



025126 004737 025154' 



025132 000207 



025134 
025142 
025150 000137 004102' 



. SBTTL GETDvL — Load system overlay into high memory 

GETOVL is called to load a system overlay into high memory. 

Inputs: 
R2 = Pointer to overlay table entry for segment in OSTABL. 
R5 = 64-byte physical memory block number luhere seg is to be loaded. 

Outputs: 
R5 = Update 64~byte physical memory block pointer for next segment. 

GETOVL: 

Allocate space for the overlay segment 



SUB 0S$SIZ(R2).. R5 
CMP R 5, #1600 
BLO 10$ 



Allocate space for overlay 

Are ue about to run over RT-11? 

Br if yes -"" Insufficient memory 



Remember the base address of some key segments 



CALL KEySEG 
Load the segment 

CALL LODOVL 
Finished 

RETURN 

Error: Memory overflow 

10*: . PRINT #TSXHD 
.PRINT #TSXSIZ 
JMP INISTP 



Remember address of some segments 



; Load the segment 



f 

I 

f 
I 

I' 

; f 

I 



( 
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LODOVL — Read and relocate system overlay 
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3 
4 
5 
6 
7 
B 
9 025154 

10 025156 

11 025160 

12 025162 
■JO nrjBtiAA 

14 
15 
16 
17 
IS 025166 

19 025172 

20 025176 

21 025204 

22 025206 

23 025212 

24 025214 

25 025220 
26 

27 
28 

29 025224 

30 025230 

31 025266 
32 

33 
34 

35 025270 

36 025274 

37 025300 

38 025302 

39 025304 

40 025306 

41 025310 

42 025316 

43 025322 

44 025326 

45 025334 

46 025340 

47 025342 

48 025350 

49 025352 

50 025354 

51 025360 

52 025362 

53 025370 

54 025376 

55 025402 

56 025410 

57 025414 



010146 
010246 
010346 
010446 



016201 
016103 
016137 
010302 
062702 
000302 
042702 
010561 



013704 
103466 



012701 
012700 
020300 
103001 
010300 
160003 

013746 
010537 
052737 
105737 
001403 
052737 
012421 
077002 
105737 
00 1 403 
042737 
042737 
012637 

062705 
005237 



— Rt'sd csiid lelocatu systeni overlay 

LODOVL is called to load a system overlay region into memory. 

Inputs: 
R2 = Pointer to OSTABL entry for segment being loaded. 
R5 = 64-byte physical memory block number where segment is to be loaded. 



LODOVL: MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2> -(SP) 
R3, -(SP) 
R4, -<SP) 
R5, -<GP) 



Get info about size of the overlay and position within SAV file 



000004 
0000000 
0000000 000142 

000377 



ooooooy 



MpW 

MOV 

MOV 

MOV 

ADD 

SWAB 

BIC 

MOV 



OS*OVL(:R2) J Rl ;Get pointer to linker-built segment entry 

0. SIZ<R1).R3 ;Get size of overlay segment (# words) 

0. BLK<R1), FILBLK; Get block in SAV file where segment starts 

R3/ R2 ;Get total number of words in segment 

#255. ; R2 j round to the nearest number of blocks 

R2 ; Divide by 256. words per segment 

#177400>R2 >kill sign extensioii bits 

R5, 0. PAR<R1) ; Remember where segment is being loaded 



000152' 



Read next block of overla" segment into low— memory buffer 

10*: MOV WRKBUF, R4 i Point to work buffer 

. READW #AREA, #17, R4, #256. , FILBLK ; read a block 
BCS 22* i ! read error occured 

Move from low buffer to high position in memory 



OOOOOOG 
000400 



2$: 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



11*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 12*: 
OOOOOOG 

000010 
000142' 



MOV 

MOV 

CMP 

BHIS 

MOV 

SUB 

DISABL 

MOV 

MOV 

BIS 

TSTB 

BEQ 

BIS 

MOV 

SOB 

TSTB 

BEO 

BIC 

BIC 

MOV 

ENABL 

ADD 

IIMC 



#VPAR5, Rl 
#256. > RO 
R3, RO 

2* 

R3, RO 
RO, R3 

@#KPAR5.. -<SP) 

R5, @#KPAR5 

#MMENBL, e#SROMMR 

MEM256 

11* 

#EMMAP, ®#SR3MMR 

<R4)+,. <R.1 ) + 

RO, 11* 

MEM256 

12* 

#EMMAP, ^#SR3MMR 

#MMEh4BL.. €#SROMMR 

(SP>+, «#KPAR5 

#10, R5 
FILBLK 



get the 
obtain t 
Do we ne 
Br if ye 
Get numb 
Get numb 
** Disab 
save the 
change t 
enable m 
Does mac 
Br if no 
enable e 
move int 



virtual address of the mapped region 
he number of words to move 

to move as many as 256 words? 



ed 

5 

er 

er 



of words to move for last block 
of words left after this move 

le interrupts *« 
contents of the mapping register 

he mapping register 

emory management 

bine have at least 256Kb of memory? 

t 

xtended memory addressing 

o high memory 



Does this machine have at least 256Kb? 

Br if not 

disable extended memory management 

disable memory management 

restore the mapping register 

** Enable interrupts «•■«■ 

advance 64-byte block # by 512~bytes 

increment file block # 



i 
i 
I 
f 
C 
I 
< 

c 
t 

4 

< 
( 



i 
I 



TSINIT - 


— TSX s 


tartup initializ 


LODOVL - 


-- Read 


and relocate sys 


58 


025420 


005302 




59 


025422 


001402 




60 


025424 


000137 


025224 ' 


61 








62 








63 








64 


025430 


012605 




65 


025432 


012604 




66 


025434 


012603 




67 


025436 


012602 




68 


025440 


012601 




69 


025442 


000207 




70 








71 








72 








73 


025444 






74 


025452 






75 


025460 


000137 


004102' 
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DEC 


R2 


BEO 


5* 


JMP 


10* 



iMore to be copied? 

i Br if not 

J Read and copy rest of mapped segment 



Finished loading the segment 



5$; 



MOV 


(SP)+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


( SP ) +> 


R3 


MOV 


(SP)+> 


R2 


MOV 


<SP)+, 


Rl 


RETURN 







> Error occurred on read 

22*: . PRINT #TSXHD 
.PRINT #RDERR 
JMP INI3TP 



; Print head ing 

; Read error 

(Abort initialization 



I 
f 
f 
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f 

c 
t 
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I 
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i 
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I 

i 
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TSINIT 
GETSRT 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— TSX startup initializ 

— Load any shared run-t 



025464 010146 

025466 010246 

025470 010346 

025472 010446 



025474 
025500 



025502 
025520 



021127 
00 1 540 



103010 



025522 
025526 
025530 
025534 
025540 



025542 
025546 
025552 
025554 
025560 
025562 
025566 
025570 
025574 
025576 



025602 
025604 
025610 

025644 
025650 



105737 
001132 
005061 
005061 
000520 



116102 
042702 
160200 
010561 
010003 
072027 
160005 
020527 
103530 
010561 



010546 
013704 



012701 
010537 
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ime systems 



GETSRT is called to load into memory a shared run-time system. 
Shared run-time systems are loaded into the top of memory. 

Inputs: 
Rl = Pointer to shared run-time descriptor block. 
R5 = 64-byte block number of top of free memory. 



OOOOOOG 



OOOOOOG 

0000000 
0000020 



OOOOOOG 
177400 

OOOOOOG 

000003 

001600 

OOOOOOG 



000 1 52 



OOOOOOG 
OOOOOOG 



Outputs: 
R5 = Neuj top of memory block number 



GETSRT; MOV 
MOV 
MOV 
MOV 



R i , - < SF ) 
R2, -<SP} 
R3, -(SP) 
R4, -(SP) 



See if this is a dummy run-time entry to alloui for patching 



CMP (R1),#DMYDEV 
BEQ 7* 



i Dummy run-time entry? 
j Br if yes 



Try to open a channel to run-time file 



. LOOKUP #AREA. #1, Rl 
BCC 8* 



; OPEN CHANNEL TO RUN-TIME FILE 
iBR IF OPEN WAS SUCCESSFUL 



TSTB 


VINABT 


BNE 


9* 


CLR 


RT*NAM<R1) 


CLR 


RT*NAM+2<R1) 


BR 


7* 



Cannot open shared run-time file. 
See if he wants to abort or continue. 

; ABORT OR CONTINUE 

; BR IF ABORT WANTED 

iMark run-time as not-available 

i GO LOAD NEXT RUN-TIME SYSTEM 

Set up information about position of run-time in physical memory 

8$: MOVB RT*SKP(R1),R2 i GET # BLOCKS TO SKIP AT FRONT OF RUN-TIME 

CLEAR SIGN EXTENSION 

GET # BLOCKS TO READ (LOOKUP SET RO W SIZE) 
SET 64-BYTE BLOCK # ABOVE TOP OF RUN-TIME 
GET # 512-BYTE BLOCKS IN RUN-TIME 
CONVERT TO # 64-BYTE BLOCKS 

CALCULATE BASE 64-BYTE BLOCK # OF RUN-TIME 
ARE WE ABOUT TO RUN OVER RT-11? 
BR IF YES 
SET BASE 64-BYTE BLOCK # OF RUN-TIME 

Read run-time system into memory and position in high-memory 

MOV R5)-(SP) i Save address of bottom of run-time 
4#: MOV WRKBUF- R4 ; Point to work buffer 

. READW #AREA, #1, R4, #256. , R2 i READ A BLOCK OF RUN-TIME FILE 
; Use memory management to access high-memory area. 

MOV #VPAR6, Rl i GET VIRTUAL ADDRESS OF PAR6 ADDRESS REGION 

MOV R5<@#UPAR6 i SET USER-MODE PAR6 MAP OFFSET VALUE 



MOVB 


RT*SKP(R1), R2 


BIC 


#•^0377, R2 


SUB 


R2, RO 


MOV 


R5, RT*T0P(R1) 


MOV 


RO, R3 


ASH 


#3, RO 


SUB 


RO, R5 


CMP 


R5, #1600 


BLO 


11* 


MOV 


R5, RT*BAS<RJ ) 



I 

I 



i 
i 
I 
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f 
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i 
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I. 



TSINIT — TSX s 


tartup initializ 


MACRO Kf< 


35. 


GETSRT — Load 


any shared run-t. 


ime sy&t 


ems 


58 025654 


012737 


077406 


OOOOOOG 




59 025662 


052737 


OOOOOOG 


OOOOOOG 




60 025670 


012700 


000400 






61 025674 










62 025702 


052737 


OOOOOOG 


OOOOOOG 




63 025710 


105737 


OOOOOOG 






64 025714 


001403 








65 025716 


052737 


OOOOOOG 


OOOOOOG 




66 025724 


012446 






3$: 


67 025726 


106621 








68 025730 


077003 








69 025732 


105737 


OOOOOOG 






70 025736 


001403 








71 025740 


042737 


OOOOOOG 


OOOOOOG 




72 025746 


042737 


OOOOOOG 


OOOOOOG 


31* 


73 025754 










74 025762 


062705 


000010 






75 025766 


005202 








76 025770 


077373 








77 










78 










79 










80 025772 


012605 








81 025774 










82 










83 










84 










85 026002 


012604 






7*: 


86 026004 


012603 








87 026006 


012602 








88 026010 


012601 








89 026012 


000207 








90 








i 


91 








; 


92 








i 


93 026014 








9*: 


94 026022 










95 026030 


012702 


000004 






96 026034 


012100 






10* 


97 026036 


004737 


030020 ' 






98 026042 


077204 








99 026044 










100 026052 


000137 


004102' 






101 








> 


102 








f 


103 








i 


104 026056 








11* 


105 026064 










106 026072 


000137 


004102' 
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nuv 

BIS 

MOV 

DISABL 

BIS 

TSTB 

BEQ 

BIS 

MOV 

MTPD 

SOB 

TSTB 

BEQ 

BIG 

BIG 

ENABL 

ADD 

INC 

SOB 



#077406* e#UPDR6 
#UPMODE, e#P5W 
#256. , RO 



SET PDR TO ALLOW FULL ACCESS TO PAGE 
SET PREVIOUS-MODE = USER FOR MTPD ACCESS 
GET # WORDS TO MOVE 
J** Disable interrupts ** 
#MMENBL J e#SROMMR; enable memory management 

DOES THIS MACHINE HAVE AT LEAST 256KB? 
BR IF NOT 

enable extended memory addressing 
TRANSFER DATA FROM BUFFER TO HIGH MEMORY 



3* 

#EMMAP, @#SR3MMR 

(R4)+, -<SP) 

( R 1 ) + 

RO, 3* 

MEM256 

31* 

#EMMAP, @#SR3MMR 

#MMENBL, @#SROMMR 

#10, R5 
R2 
R3, 4* 



DOES THIS MACHINE HAVE AT LEAST 256KB? 

BR IF NOT 

DISABLE EXTENDED MEMORY MANAGEMENT 

DISABLE MEMORY MANAGEMENT 

*» Enable interrupts ** 

ADVANCE 64-BYTE BLOCK # BY 512-BYTES 

INC FILE BLOCK # 

READ AND COPY REST OF FILE 



Finished loading the run-time system. 



MOV 



(SP)+, Rf7 



. CLOSE #1 
Finished 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R4 
(SP>+, R3 
<SP)+, R2 
(SP)+, Rl 



Error 



Cannot find run-time system file 



.PRINT #TSXHD 

. PRINT #COSRT 

MOV #4, R2 

MOV <R1)+, RO 

CALL PRTR50 

SOB R2, 10* 

.PRINT #CRLF 

JMP INISTP 



PRINT MESSAGE HEADING 
PRINT ERROR MESSAGE 
PRINT 4 RAD50 VALUES 
GET PART OF NAME 
PRINT RAD50 VALUE 

;END LINE 

i ABORT INITIALIZATION 



Error — Insufficient memory space to load run— time systems 



.PRINT #TSXHD 

PRINT #SRTOVF 
JMP INISTP 



PRINT HEADING 
PRINT ERROR MESSAGE 
ABORT INITIALIZATION 
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TSINIT 
CSHBUF 
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-- Allocate space for data cache tables 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. oo I i i„ i_-3r!Dur ~~ MiiULrfge ^paue t-oi aabd i-Gii-ri«f ^dOies 

Allocate space for data cache blocks and control tables. 

Inputs: 
R4 = 64-byte block number of base of free memory. 
R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = Updated 64-byte block number of top of free memory. 



026076 010246 
026100 



026102 013737 OOOOOOG 0000000 
026110 013702 OOOOOOG 
026114 001464 



026116 062702 000037 
026122 072227 177773 



026126 013703 OOOOOOG 

026132 072327 000003 

026136 012700 000010 

026142 060203 

026144 077002 

026146 010337 OOOOOOG 



026152 01O500 

026154 160400 

026156 020300 

026160 103045 



026162 013700 OOOOOOG 

026166 072027 000003 

026172 160005 

026174 010537 OOOOOOG 



026200 160205 

026202 010537 OOOOOOG 

026206 160205 

026210 010537 OOOOOOG 

026214 160205 

026216 010537 OOOOOOG 

026222 160205 



CSHBUF: MOV 
MOV 



R2> -(SP) 
R3> -<SP) 



See if data caching is wanted 

; Set # blocks in use = # blocks allocated 
iDid used request data caching? 
i Br if not 

Calculate number of 64-byte blocks needed for each cache control table 



MOV 


CSHALC, VCSHNB 


MOV 


CSHALC, R2 


BEQ 


9* 



ADD 

ASH 



#31. ,R2 
#-5. >R2 



j Bound up to 32 word block 
/Convert to # 64~byte blocks 



MOV 


CSHALC. R3 


ASH 


#3, R3 


MOV 


#8. . RO 


ADD 


R2, R3 


SOB 


RO, 1* 


MOV 


R3, CSHSIZ 



MOV 


R5>R0 


SUB 


R4, RO 


CMP 


R3, RO 


BHIS 


10* 



Compute total space that will be used by all cache data 

Get # blocks in cache 

Get # 64-byte blks used by cache data buffers 
Get number of cache control tables 
Accumulate total space needed 

Save total space used by cache data 

See if there is enough memory space available for the specified cache 

i Get top of memory address 
; Compute # free 64-byte blocks 
j Is there enough total space? 
} Br if not 

Allocate space for cache data buffers 

i Get # blocks in data cache 

i Get # 64-byte blocks needed for allocation 

i Allocate space for cache data buffers 

i Save pointer to base of buffer area 

Allocate space for each control table 

jAllocate space for table 

i Block number associated with entry 

iAllocate space for table 

} Device and unit number 

J Allocate space for table 

/Number of words 

^Allocate space for table 



MOV 


CSHALC, RO 


ASH 


#3, RO 


SUB 


RO, R5 


MOV 


R5, CSHBFP 



SUB 


R2, R5 


MOV 


R5, CA*BLK 


SUB 


R2, R5 


MOV 


R5, CA$DVU 


SUB 


R2, R5 


MOV 


R5, CA*WCT 


SUB 


R2, R5 



i 
i 
i 

f 

i 
« 
i 

< 

I 
( 
I 
I 
C 
f 
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t 

€ 



58 026224 

59 026230 

60 026232 

61 026236 

62 026240 

63 026244 

64 026246 

65 026252 

66 026254 

67 026260 

68 026264 
69 

70 
71 

72 026266 

73 026270 

74 026272 
75 

76 
77 

78 026274 

79 026302 

80 026310 



010537 
160205 
010537 
160205 
010537 
160205 
010537 
160205 
010537 
020527 
101403 



012603 
012602 
000207 



OOOOOOQ 

OOOOOOG 

0000000 

OOOOOOG 

OOOOOOG 
001600 



MOV 
SUB 
MOV 
SUB 
MOV 
SUB 
MOV 
SUB 
MOV 
CMP 
BLOS 

F i n i !> h e d 



9«: 



MOV 
MOV 
RETURN 



R5, CA*UFL 

R2, R5 

R5, CA$UBL 

R2, R5 

R5, CA*HFL 

R2, R5 

R5, CA*HBL 

R2, R5 

R5, CA«HSH 

R5, #1600 

10* 



(SP)+, R3 
(SP)+,R2 



LRU ch 
Al loca 
LRU ch 
Al loca 
Hash c 
Al loca 
Hash c 
Al loca 
Hash c 
Di d me 
Br if 



am 
te s 
ain 
te s 
hain 
te s 
hain 
te 5 
hain 
run 
yes 



forward 1 
pace for 
backward 
pace for 

f oriuard 
pace for 

backward 
pace for 

list h ea 

ovsr RT- 



ink 
table 
1 ink 
table 
link 
table 
1 ink 
table 
ds 
11? 



Insufficent memory space available for cache data 



10*: 



000137 004102' 



. PRINT 
. PRINT 
JMP 



#TSXHD 

#CSHOVF 

INISTP 



i Print head ing 

;Uverlow message 

jAbort the initialization 



i 
t 

i 

I 

r 

I 

f 

c 

t 

c 

t 



TSINIT 
CSHBUF 
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— Allocate space for data cache tables 



1 
2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



026314 010146 

026316 010246 

026320 010346 

026322 010446 



026324 
026344 
026346 
026354 
026362 



103010 



000137 004102 



026366 062705 000310 

026372 010500 

026374 062700 001000 

026400 004737 027630 ' 

026404 

026440 103002 

026442 000137 027024' 

026446 016502 000052 

026452 010203 

026454 060503 

026456 010300 

026460 004737 027630 ' 

026464 000241 

026466 006002 

026470 016500 000040 

026474 162700 001000 

026500 060500 

026502 010037 

026506 016501 



000234 
000062 



026512 
026546 



103526 



. IF EQ/PROCID J Don't allow ODT for production PRO version 
. SBTTL GETODT — Load ODT 

GETODT is called to load ODT into memory above TSX and transfer control 
to it. On return, ODT has been started. 

Inputs: 
R5 = Address where ODT is to be loaded. 

Outputs: 
R5 = Address above top of ODT. 



MOV 
MOV 
MOV 



R2. -(SP) 
R3, -(SP) 
R4, -(SP) 



1*: 



2*: 



Try to lookup ODT rel file. 

.LOOKUP #AREA, #1,#0DTBLK ; LOOKUP DDT REL FILE 

BCC 1* )BR IF FOUND IT 

.PRINT #TSXHD * CAN'T FIND ODT 

. PRINT #NOODT 

JMP INISTP i ABORT INITIALIZATION 

Read first block of ODT file and determine size of ODT. 



} RESERVE SPACE FOR ODT STACK 

i CHECK MEMORY ADDRESS FOR OVERFLOW 



i Br if no read error 
; Read error 
jGET size of ODT 

i GET ADDRESS ABOVE TOP OF ODT 

; CHECK MEMORY ADDRESS FOR OVERFLOW 



; GET # WORDS IN ODT 

i GET OFFSET TO START ADDRESS 

; CALCULATE ABSOLUTE STARTING ADDRESS 

;THIS IS REAL STARTING ADDRESS 

;GET # OF BLOCK WITH RELOCATION INFO 



ADD 


#200. , R5 


MOV 


R5, RO 


ADD 


#512. ,R0 


CALL 


CHKMEM 


. READW 


#AREA, #1>R 


BCC 


2* 


JMP 


ODTRDX 


MOV 


RSZ(R5>,R2 


MOV 


R2, R3 


ADD 


R5, R3 


MOV 


R3, RO 


CALL 


CHKMEM 


CLC 




ROR 


R2 



; Get starting address of ODT 

MOV STA(R5),R0 

SUB #ODTBAS, RO 

ADD R5* RO 

MOV RO, ODTSTA 

MOV RBD(R5),R1 

Rear) in ODT rel file imaqP- 



READW #AREA, #1, R5, R2, #1 



BCS 



ODTRDX 



;BR IF READ ERROR 



Relocate addresses in ODT. 

R5 = Address of base of ODTi R3 - Address above top of ODT. 

Rl = Block number in rel file of start of relocation info. 



i 
f 
f 



( 
I 
t 
c 

€ 

I 

I 
I 

( 



i 
i 



TSINIT - 


— TSX s 


tartup initializ MACRO V 


GETODT - 


— Load 


ODT 




5B 


026550 


010337 


000036 ' 


59 


026554 


010337 


000230 ' 


60 








61 








62 








63 








64 


026560 


013737 


000152' 000230' 


65 


026566 


013737 


000230' 000232' 


66 


026574 


062737 


002000 000232 ' 


67 


026602 


010504 




68 


026604 


162704 


001000 


69 








70 


0266 10 






71 


026646 


103003 




72 


026650 


105737 


000052 


73 


026654 


001063 




74 








75 


026656 


013702 


000230 ' 


76 


026662 


012203 




77 


026664 


020327 


177776 


78 


026670 


001416 




79 


026672 


012200 




00 


026674 


006303 




81 


026676 


103002 




02 


026700 


160400 




83 


026702 


000401 




84 


026704 


060400 




85 


026706 


060503 




86 


026710 


010013 




87 


026712 


020237 


000232 ' 


88 


026716 


103761 




89 


026720 


062701 


000002 


90 


026724 


000731 




91 








92 








93 








94 








95 


026726 






96 








97 








98 








99 








100 








101 








102 








103 








104 








105 








106 








107 








108 








109 








110 








111 








112 


026734 


012700 


000000 ' 


113 


026740 


012701 


OOOOOOG 


114 


026744 


012702 


OOOOOOG 
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rtir.!-!- J.L.: 



IF 



ENDC 



1*: 



Read 



4*: 



MOv 

MOV 

NE, PROCI 

TSTB 

BWE 

i NE, PROC 

MOV 

MOV 

ADD 

MOV 

SUB 

in reloc 

. READW 

BCC 

TSTB 

BNE 



7$; 
3*: 



5«: 
6$: 



Relocate 
MOV 
MOV 
CMP 
BEQ 
MOV 
ASL 
BCC 
SUB 
BR 
ADD 
ADD 
MOV 
CMP 
BLO 
ADD 
BR 



R3/ ODTTOP 
R3, RLBF 
D 

PROFLG 
1* 
ID 

WRKBUF, RLBF 
RLBF, RLBFND 
#1024. , RLBFND 
R5, R4 

#ODTBAS, R4 
ation addre&s 
#AREAj #1j f?LBF* 
7* 

@#52 
ODTRDX 
some addresses in 
RLBF, R2 
<R2)+, R3 
R3, #-2 
9* 

(R2)+, RO 
R3 
5* 

R4, RO 
6* 

R4, RO 
R5, R3 
RO, @R3 
R2, RLBFND 
3* 

#2, Rl 
4* 



J SAVE ADDRESS ABOVE TOP OF ODT 

j Only if PRO protection code is included 
; Are we running on a Pro? 
J Br if yes 

jREAD RELOCATION INFO HERE 

i GET ADDRESS OF END OF BUFFER AREA 
} GET BASE ADDRESS OF ODT 
i SUBTRACT LINK BASE ADDRESS 
1 ist. 
#512. ,R1 

i BR IF NO READ ERROR 
J END OF FILE IS OK 
; BR IF READ ERROR 
ODT. 

POINT TO RELOCATION INFO 

GET ADDRESS OF LOCATION TO RELOCATE 

TIME TO STOP? 

BR IF FINISHED 

GET VALUE TO RELOCATE 

CVT TO BYTE ADDRESS 

BR IF ADDITIVE RELOCATION 

RELOCATE THE ADDRESS 



RELOCATE THE ADDRESS 

GET LOCATION WHERE WORD GOES 

STORE RELOCATED ADDRESS 

TIME TO READ NEXT BUFFER FULL? 

BR IF NOT 

ADVANCE BLOCK # 

GO READ NEXT BUFFER FULL 



Finished relocation. 
Close ODT rel file. 

9*: . CLOSE #1 

Direct interrupts to 60 and 64 to an RTI instruction 



MOV #D0RTI.@#60 
MOV #D0RTI,€!#64 



i Catch interrupt 60 
i Catch interrupt 64 



Load registers with the foiiowing values for initial entry to ODT: 
RO = Base of TSINIT 

Rl = Important breakpoint (•'^R) in TSX 
R2 = Base of TSGEN 
R3 = Base of TSEXEC 
R4 = Base of TSEMT 

R5 - Return address to start execution 
0(SP) = Address of mapsys routine 
2<SP) = Address of sysmap cell 

MOV #TSINIT, RO 
MOV #BRKPT, Rl 
MOV #TSGEN, R2 



i 

t 
I 
t 



TSINIT - 


~ TSX s 


htartup initializ 


GETODT - 


— Load 


DDT 




115 


026750 


012703 


0000000 


116 


026754 


012704 


OOOOOOG 


117 


026760 


012746 


OOOOOOG 


118 


026764 


012746 


OOOOOOG 


119 


026770 


012705 


027000 ' 


120 








121 








122 








123 


026774 


000177 


151234 


124 








125 








126 








127 








128 


027000 


013737 


000014 


129 


027006 


013705 


000036 ' 


130 


027012 


012604 




131 


027014 


012603 




132 


027016 


012602 




133 


027020 


012601 




134 


027022 


000207 




135 








136 








137 








138 


027024 






139 


027032 






140 


027040 


000137 


004102' 


141 








142 








143 








144 


027044 


000002 




145 









MACRO V05. 



Tuesday 


17- Jan -89 13: 55 


MOV 


#TSEXEC, R3 


MOV 


#TSEMT, R4 


MOV 


#SYSMAP, -<SP) 


MOV 


#MAPSYS, -(SP) 


MOV 


#10*, R5 


nter ODT 




JMP 


eODTSTA 
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PASS ADDRESS OF SYSMAP CELL TO ODT 
PASS ADDRESS OF MAPSYS ROUTINE 
ADDRESS FOR ODT TO RETURN TO 



i JUMP TO START OF ODT 



Return from ODT. 

Continue initialization of TSX. 



OOOOOOG 10$: 



MOV 


©#14, ODTTRP 


MOV 


ODTTOP, R5 


MOV 


<SP>+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





; SAVE ODT BREAKPOINT ENTRY ADDRESS 
i ADDRESS ABOVE TOP OF ODT 



f 

i 
I 
< 

( 
I 



> Error luhiie reading OD f rel file. 

DDTRD.X: .PRINT #T3XHD i PRINT ERROR MESSAGE 

. PRINT ttODTRDM 
JMP INISTP ; ABORT INITIALIZATION 

RTI instruction to disable interrupts 



DORTI: 



RTI 
. ENDC 



i EQ, PROCID 



I 
« 
1 
I 

i 



I 

f 

c 

c 

I 
i 
i 

I 
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I ( 

i 
i 

« 

< 

I 

'( 

i 
( 

< 



TSINIT 
OPNCHN 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



— TSX startup initializ MACRO V05. 05 Tuesday 17-Jan-S9 13:55 Page 77 

— Open a TSX-Plus channel 

. SBTTL OPNCHN — Open a TSX-Plus channel 



OPNCHN is called to set up information in a TSX-Plus channel block 
to make it look as if the channel has been opened to a specified 
device with a .ENTER. 

Inputs: 
RO = Address of channel block to be opened. 
R2 - RadSO device name. 

Outputs: 
C-flag set ==> Cannot open the device. 



027046 010146 
027050 010346 
027052 010003 



027054 010301 

027056 012700 OOOOOOC 

027062 005021 

027064 077002 

027066 012763 OOOOOOC OOOOOOG 



027074 010200 

027076 004737 012704' 

027102 103411 

027104 010001 

027106 000301 

027110 110163 OOOOOOG 

027114 042700 OOOOOOC 

027120 050063 OOOOOOG 



027124 000241 



027126 012603 
027130 012601 
027132 000207 



OPNCHN: MOV 
MOV 
MOV 



Rl. -<SP) 
R3, -<SP) 
RO, R3 



/Carry channel block address in R3 



Initialize the channe.l block 



; Point to the channel block 
/Get # words to zero 
/Zero the channel block 



MOV R3/R1 

MOV # <C HNS I Z / 2> , R 

2if>: CLR (Rl) + 

SOB RO. 2* 

MOV #<CS*OPNiCS*ENT>, C. CSW(R3) ; Initialize CSW to say chan open 

Convert the device name into device # and unit # 

i Get the full device name 

/ Convert to dev # and unit # 

J Br if we don't recognize the device name 

/Get index # and unit # 

/Get unit # to low byte 

/Set unit # in channel block 

/Clear all but device index number in RO 

/Store device index # into CSW 



9*: 



MOV 


R2, RO 


CALL 


CVTDVU 


BCS 


9* 


MOV 


RO, Rl 


SWAB 


Rl 


MOVB 


Rl/C. DEVQ<R3) 


BIC 


#-^C<CS«NMX>/ RO 


BIS 


RO/C. CSW<R3) 


Success 




CLC 




Finished 




MOV 


<SP)+/ R3 


MOV 


<SP)+/R1 


RETURN 





Signal success on return 



r 

I 
I 
f 
I 
f 
€ 
I 
i 
i 
€ 
( 
( 






I 
i 
f 

r 

\ f 
c 

i 

I 

i 

e 
I 
I 



TSINIT — TSX startup 


initializ 


SETCHN — Copy 
1 


RT-11 cl 


lannel in 


1 

2 
3 






4 






5 






h 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 






17 






18 027134 


010146 




19 027136 


010246 




20 027140 


010346 




21 027142 


010001 




22 






23 






24 






25 027144 






26 






27 






28 






29 






30 027162 


011103 




31 027164 


042703 


177701 


32 027170 






33 027210 


060003 




34 027212 






35 027230 


013703 


OOOOOOG 


36 027234 


020063 


ooooooe 


37 027240 


001404 




38 027242 


162703 


000002 


39 027246 


002372 




40 027250 


000407 




41 027252 


042711 


000076 


42 027256 


050311 




43 






44 






45 






46 027260 


012603 




47 027262 


012602 




48 027264 


012601 




49 027266 


000207 




50 






51 






52 






53 027270 






54 027276 






55 027304 


010200 




56 027306 


004737 


030020 ' 


57 027312 
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\^%jpu iAi~ii i.iiaiintr± 1 iiT-u iiiieiT 1 on into i SX system chan 



SETCHN is called to set up a TSX system channel block to access a file 
that has been opened using RT-11. The device index number is converted 
from the RT-11 device number to the corresponding TSX device number. 
Note: the channel must have been opened with a . lookup (not . enter) 
to use this routine. 

Inputs: 
Channel # 1 = Open to file of interest. 

RO = Address of TSX channel block which is to be set up. 
R2 = Rad-50 device name?. 

Outputs: 
Channel block pointed to by RO is set up for future TSX I/O. 
Channel # 1 is closed. 



SETCHN: MOV 
MOV 
MOV 
MOV 



R 1 . - ( SP ) 
R2, -<SP) 
R3, -(SP) 
RO, Rl 



1*: 



2*: 



GET ADDRESS OF TSX CHANNEL BLOCK 

Do . SAVESTATUS to store channel information into TSX channel block. 

SAVES! #AREA, #1,R1 ; STORE CHANNEL STATUS INTO TSX CHANNEL BLOCK 

Now convert RT-11 device table index number into corresponding TSX 
device table index number. 

GET CSW FOR CHANNEL 

GET RT-11 DEVICE INDEX NUMBER 

GET RT-11 OFFSET TO PNAME TABLE 

GET ADDRESS OF NAME OF DEVICE IN PNAME TABLE 

GET NAME OF DEVICE FROM RT-11 

GET INDEX # FOR LAST TSX DEVICE 

LOOK FOR DEVICE IN OUR TABLES 

BR IF FOUND 

CHECK NEXT ENTRY 

BR IF MORE TO CHECK 

VERY STRANGE THAT WE DIDN'T FIND IT 

CLEAR OUT RT-11 DEVICE # 

STORE TSX DEVICE # 





MOV 


<R1),R3 




BIC 


#•^076, R3 




. GVAL 


#AREA, #404 




ADD 


RO, R3 




. GVAL 


#AREA, R3 




MOV 


NUMDEV, R3 




CMP 


RO, PNAME <R3) 




BEQ 


2* 




SUB 


#2, R3 




BGE 


1* 




BR 


MTSXDV 




BIC 


#76. <R1) 




BIS 


R3, (Rl) 


Fini 


shed 






MOV 


<SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





Error: Could not locate Rt-ll device number in TSX device table. 



MTSXDV: PRINT #TSXHD 

. PRINT #REQMIS 

MOV R2, RO 

CALL PRTR50 

.PRINT #CRLF 



PRINT ERROR MESSAGE 
Missing a required device 
GET RAD50 DEVICE NAME 
DISPLAY DEVICE NAME 



i 
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SETCHN — Copy RT-11 channel information into ISX system chan 

5S 027320 000137 004102' JMF INISTP i ABORT INITIALIZATION 



TSINIT — TSX startup initializ MACRO V05. 05 
SETSY — Set up information about SY device 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


027324 


010146 




15 


027326 


010246 




16 








17 








IS 








19 


027330 






20 


027350 


010037 


OOOOOOG 


21 








22 








23 








24 


027354 






25 


027374 


1 OOOni 




26 


027376 






27 


027416 


060002 




28 


027420 






29 


027436 


013701 


0000000 


30 


027442 


020061 


OOOOOOG 


31 


027446 


001405 




32 


027450 


162701 


000002 


33 


027454 


002372 




34 


027456 


010002 




35 


027460 


000703 




36 


027462 


010137 


OOOOOOG 


37 








38 








39 








40 


027466 


113702 


00000 IG 


41 


027472 


062702 


000036 


42 


027476 


066102 


OOOOOOG 


43 


027502 


010237 


OOOOOOG 


44 








45 








46 








47 


027506 


012602 




48 


027510 


012601 




49 


027512 


000207 
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. SBTTL SETSY — St?t- up irifor-mation about 3Y device 



SETSY is called to set up information about the SY device. 

It does this by determining what device RT-11 recognizes as SY. 

Inputs: 
R5 = Address of base of free memory area 

i^ U "C p U w S ! 

SYNAME = RAD50 spec for physical system disk 
SYINDX = TSX device table index for SY device 
SYUNIT = SY device unit number 



SETSY: MOV 
MOV 



R 1 , - < SP ) 
R2, - < SP ) 



Set up system device unit number 



. GVAL 
MOV 



#AREA, #274 
RO, SYUNIT 



:Get system unit # from RT-11 <high byte) 
i Set system unit number 



i Set up system device index number 



1*: 



2$: 



. GVAL 


#AREA, #364 


MOV 


R0> R2 


. GVAL 


#AREA. #404 


ADD 


RO, R2 


. GVAL 


#AREA> R2 


MOV 


NUMDEV, Rl 


CMP 


RO, PNAME<R1) 


BEQ 


2* 


SUB 


#2, Rl 


BGE 


1« 


MOV 


RO, R2 


BR 


MTSXDV 


MOV 


Rl, SYINDX 



Set up RAD50 name of SY disk 



MOVE 


SYUNIT+1,R2 


ADD 


#36, R2 


ADD 


PNAME<R1), R2 


MOV 


R2, SYNAME 


Finished 




MOV 


< SP ) +, R2 


MOV 


<SP)+, Rl 


RETURN 





Get RT~il system device index number 

Save device index number 

Get offset within RMON of PNAME table 

Get offset to name of SY device 

Get name of RT-11 system device 

Get index to last TSX-Plus device entry 

Search for device in TSX tables 

Br if found it 

Keep looking if more 

; Save name of system device 

j Missing device error 

i Store index # of TSX-Plus system device 



GET SYSTEM UNIT NUMBER 

PUT IN "0" AS 3'RD CHARACTER OF NAME 

ADD DEVICE NAME 

THIS IS THE FULL SY DISK NAME 



f 
I 
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i 
i 
< 

t 
I 
I 
( 

( 

4 
I 
f 
I 



TSINIT 
RTFTCH 
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Fetch a RT-11 device handler 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27" 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



027514 010046 
027516 010246 
027520 010546 



027522 010037 000130' 



027526 

027540 103425 



027542 005737 000116 
027546 001021 



027550 1 3702 000 1 52 ' 

027554 013700 000114' 

027560 020037 000154' 

027564 101405 



027566 060500 

027570 020037 000132' 

027574 101013 

027576 010502 



027600 

027610 103401 



. ijB I !L K !l- ICH 



F"etch a kT-I 1 device handier 



RTFTCH is called to fetch an RT-11 device handler. 

If the handler is already resident/ nothing is done. 

If the handler will fit in WRKBUF, it is fetched into there. 

If the handler will not fit in WRKBUF, it is fetched into the top 

of memory. 



Inputs; 
RO ==■ RAD50 device name. 
R5 = Address of start of free memory. 

Outputs: 
C--flag cleared ==> Fetch was successful. 
C--flag set ==> Error on fetch. 



RTFTCH: MOV 
MOV 
MOV 



RO, -(SP) 
R2, -(SP) 
R5, -(SP) 



Set the name of the device being fetched 

MOV RO, FETDEV ; Set name of device whose handler to fetch 

Bo a . D3TAT to get information about the handler 

. DSTAT #DSTBLKi #FETDEV ; Get information about the device handler 
DCS 9* j Br if device not recognized 

Determine if the handler is currently resident 



TST 
BNE 



DSTBLK+4 
8* 



; Is the handler resident noui? 
j Br if yes 



The handler is not currently resident. 
See if it will fit in WRKBUF. 



MOV WRKBUF, R2 


MOV DSTBLK+2, RO 


CMP RO, WRKSIZ 


BLOS 1* 



i Set address where handler will be loaded 

i Get the size of the handler 

iWill handler fit in WRKBUF? 

; Br if handler will fit in WRKBUF 



Handler will not fit in WRKBUF. 

See if there is room to load it into the top of memory. 



ADD 


R5, RO 


CMP 


RO, TOPMEM 


BHI 


10* 


MOV 


R5, R2 



1*: 



Fetch the handler 

. FETCH R2, #FETDEV 
BCS 9* 



i Get address above top of area needed 

ils there room for handler? 

.; Br if not 

i Set address where handler is to be loaded 



j Try to fetch the handler 
i Br if error on fetch 



I 

I 
I 
f 
( 
I 
f 
i 
« 

i 
i 

4 



We successfully fetched the handler 



I 
I 
I 
t 
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t 



I 
f 



I' 
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I 
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f 

4 

I 

i 
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5S 027612 000241 

59 

60 

61 

62 027614 012605 

63 027616 012602 

64 027620 012600 

65 027622 000207 
66 

67 
68 
69 027624 004737 027650' 



^•S: 



ji^icns^ success on return 



Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
<SP)+, R2 
(SP)+, RO 



Insufficient memory available to load the handler 
10*: CALL SIZERR J Generated system is too big 



abort 



I 

I 
< 
I 
f 
( 
( 
I 
I 
< 
i 

c 

I 
i 
t 

i 

c 
i 



i 



f 



TBINIT - 


-- TSX s 


tartup initializ 


CHKMEM - 


— Check 


for memory spac 


i 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


027630 


020037 


000236 ' 


12 


027634 


103402 




13 


027636 


004737 


027650 ' 


14 


027642 


004737 


027670 ' 


15 


027646 


0O0207 




16 








17 








IS 








19 








20 


027650 






21 


027656 






22 


027664 


000137 


004102' 


23 








24 








25 








26 








27 


027670 


005737 


000040 ' 


28 


027674 


001402 




29 


027676 


000137 


004102' 


30 


027702 


000207 





SBTTL CHKMErl 



Check for memory space overflouj 



CHKMEM is called to make sure me have not overflowed the available memory 

space while allocating space for TSX. 

If a memory overflow occurs, an error message is printed and 

the initialisation is aborted. 



Inputs: 
RO ~ Address to be tested for validity. 



CHKMEM: CMP 
BLO 
CALL 

1*; CALL 

RETURN 



RO, MEMLIM 
1* 

BIZERR 
CCATST 



■> IS THE ADDRESS OK? 

; BR IF OK 

i Generated system is too big — abort 

J CHECK FOR ■'••C ABORT REQUEST 



Generated system is too big Abort the initialization. 



SIZERR: .PRINT #TSXHD 
.PRINT #TOOBIG 
JMP INISTP 



i PRINT MESSAGE HEADING 
; PRINT ERROR MESSAGE 
:• ABOR T I N I T I AL I Z AT I ON 



Check for control-C and abort initialization if requested. 



CCATST: TST CCAFLG 

BEQ 1* 

JMP INISTP 

1*: RETURN 



; DID USER REQUEST '^C ABORT? 

i BRANCH IF NOT 

i ELSE ABORT INITIALIZATION 



TSINIT " 


— TSX s 


tartup initial! 


PRTOCT - 


— Print 


octal value 


i 
2 








3 








4 








5 








6 








7 








8 


027704 


010146 




9 


027706 


010246 




10 


027710 


010001 




11 


027712 


012702 


000006 


12 


027716 


005000 




13 


027720 


073027 


000001 


14 


027724 


000403 




15 


027726 


005000 




16 


027730 


073027 


000003 


17 


027734 


062700 


000060 


IS 


027740 






19 


027744 


077210 




20 


027746 


012602 




21 


027750 


012601 




22 


027752 


000207 
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. au I • L. rRTOC I — Hrint Octai vajiue 

PRTOCT is called to print an octal value without trailing Cr~Lf. 

Inputs: 
RO = value to be printt?d. 



J GET VALUE TO PRINT 
; PRINT 6 DIGITS 

Gi — r -I r^T- 

.; INITIALIZE FOR SHIFT 

; SHIFT AN OCTAL DIGIT INTO RO 

> CONVERT TO ASCII CHARACTER 

i PRINT THE CHARACTER 

i LOOP AND PRINT MORE DIGITS 



I 



PRTOCT: 


MOV 


R1,-(SP> 




MOV 


R2, -<SP) 




MOV 


RO, Rl 




MOV 


#6, R2 




CLR 


RO 




ASHC 


#i,RO 




BR 


2* 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2$. 


ADD 

. TTYOUT 


#'0, RO 




SOB 


R2, 1* 




MOV 


(SP)+, R2 




MOV 


<SP)+, Rl 




RETURN 





i 



f 

\ 

I C 

c 

f 



( 
I 
f 
i 
i 

I 

* I 
c 

i 
i 
t 
i 
< 



TSINIT - 


-- TSX 5 


tartup initial! 


PRTDEC - 


— Print 


decimal 


value 


1 
S 








3 








4 








5 








6 








7 








8 








9 


027754 


010146 




10 


027756 


005046 




11 








12 








13 








14 


027760 


010001 




15 


027762 


005000 




16 


027764 


071027 


000012 


17 


027770 


062701 


000060 


IS 


027774 


010146 




19 


027776 


010001 




20 


030000 


001370 




21 








22 








23 








24 


030002 


012600 




25 


030004 


001403 




26 


030006 






27 


030012 


000773 




28 








29 








30 








31 


030014 


012601 




32 


030016 


000207 
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SDTTL 



PRTDEC 



F*rint decimal value 



PRTDEC is called to print a decimal value with leading zeroes suppressed 
and with no trailinn Cr-Lf. 



Inputs: 
RO = Value to be printed 



PRTDEC: MOV 


R 1 , - < SF ) 


CLR 


-(SP) 


> 

■> Convert va] 


iue to asci 


> 

MOV 


RO, Rl 


1*: CLR 


RO 


DIV 


#10. ,R0 


ADD 


#'0.R1 


MOV 


R1,-<SP) 


MOV 


RO, Rl 


BNE 


1* 



; NULL ON STACK TO STOP US 



; SET VALUE TO BE CONVERTED 

;SET HIGH-ORDER PART OF VALUE TO 

; DIVIDE RO-Rl BY 10. 

i CONVERT REMAINDER TO ASCII DIGIT 

;AND STACK THE DIGIT 

i GET QUOTIENT 

i BR IF MORE DIGITS TO CONVERT 



Finished conversion. 



Print result. 



2*: 



3*: 



MOV 


<SP)+, RO 


BEG 


3* 


. TTYOUT 




BR 


2* 


Finished 




MOV 


<SP>+, Rl 


RETURN 





;GET A DIGIT FROM THE STACK 
; BR IF REACHED END 
; PRINT THE DIGIT 
i PRINT MORE 



TSINIT - 


— TSX s 


tartup initializ 


PRTR50 - 


— Print 


Rad-50 


value 


1 

2 








3 








4 








5 








6 








7 








8 


030020 


010146 




9 


030022 


010246 




10 








11 








12 








13 


030024 


012702 


000003 


14 


030030 


010001 




15 


030032 


005000 




16 


030034 


071027 


000050 


17 


030040 


116101 


003347 ' 


IS 


030044 


010146 




19 


030046 


010001 




20 


030050 


077210 




21 








22 








23 








24 


030052 


012702 


000003 


25 


030056 


012600 




26 


030060 






27 


030064 


077204 




28 








29 








30 








31 


030066 


012602 




32 


030070 


012601 




33 


030072 


000207 




34 








35 








36 








37 


030074 






38 
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f 

f 



PRTR50 is called to print a Rad-50 value. 

Inputs: 
RO = value to be printed. 



PRTR50: MOV 

MOV 



Rl. -(SP) 
R2, -<SP> 



J*; 



Convert value to ascii string and stack the characters. 



GET VALUE TO BE CONVERTED 

CLEAR HIGH-ORDER VALUE 

DIVIDE RO-Rl BY 50 

CONVERT REMAINDER TO ASCII CHARACTER 

STACK THE CHARACTER 

GET QUOTIENT 

BR IF MORE CHARS TO CONVERT 



Finished conversion. Print the result. 



MOV 


#3, R2 


MOV 


RO, Rl 


CLR 


RO ; 


DIV 


#50, RO ; 


MOVE 


R50CHR<Rl),Ri 


MOV 


R1,~<SP) ; 


MOV 


RO, Rl i 


SOB 


R2, 1* ; 



.'*: 



MOV #3, R2 

MOV <SP)+, RO 
. TTYOUT 

SOB RP. 2* 



,GEr # CHARS TO PRINT 

; GET NEXT CHARACTER 

i PRINT THE CHARACTER 

.iLOOP IF MORE CHARS TO PRINT 



Fini shed 



MOV <SP)+, R2 
MOV <SP)-+-, Rl 
RETURN 



; Define top of TSINIT 
INITOP: 



i 
« 
c 

I 
1 
( 
I 

i 



TSINIT 
PRTR50 
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1 
2 
3 
4 
5 
h 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



IF 



IME, PROCID 



jOnly assemble for protected Pro j50 version 



The folloujing startup code is only included for the Pro version. 
It is loaded here and executed very early during initialization 
and subsequently overwritten by I/O buffers. 



. SBTTL 
. MCALL 



INSCHK -■ 
. PRINT 



Installation validation subroutines for Pro-350 



Reserve an arg block arisa for encryption calls 



EDARGB: . WORD -32. 
EDADDR: . WORD DSKBUF 



;# OF BYTES TO BE DECRYPTED <EDMTH3) 
uiMitiK tu uur-f-EK lu Bt utuRYPTED 



Recover license number and decrypt disk image of Pro ID to intermed. state 



INSCHK: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

. RAD50 

XOR 

MOV 

MOV 

CALL 



R 1 , - < SP ) 

R2, -<SP> 

R3, -<SP) 

R4, -<SP) 

R5, -(SP) 

{PC)+> RO 

/SCB/ 

RO, LIGNUM 

LICNUM, TSXSIT 

#EDARGB, RO 

EDMTH3 



jSAVE REGISTERS 



DECRYPT LICENSE NUMBER 

WITH THIS CODE 

BY XORING IT 

MOVE LICENCE NUMBER TO TSGEN CELL 

POINT TO ENC/DEC ARG BLOCK < PRESET) 

DECRYPT TO INTERMED STATE 



Copy Pro ID ROM low bytes into memory, and encrypt 1 step 



IDADDR = 173600 

MOV 

MOV 

MOV 

NEG 

MOV 
3*: MOVE 

INC 

SOB 

MOV 

CALL 



; ADDRESS OF START OF PRO 350 ID ROM 



#IDADDR,R1 
#ROMBUF, R2 
R2> EDADDR 
EDARGB 
EDARGB, RO 
(Rl)+, <R2)+ 
Rl 

RO, 3« 

#EDARGB, RO 
EDMTH2 



GET POINTER TO PRO ID ROM 
POINTER TO COPY OF HARDWARE ID 
SAVE ADDRESS FOR ENCRYPTION 
MAKE +32. FOR ENCRYPTION 
ALSO USE AS LOOP COUNTER 
GET NEXT LOW BYTE 
SKIP ID ROM HIGH BYTES 
REPEAT THROUGH 32 BYTE ROM 
POINT TO ENCRYPTION ARG BLOCK 
PERFORM METHOD 2 ENCRYPTION 



4*: 



Have intermediate state of both hardware and disk copies of Pro ID 
in memory. Verify them against each other and correct memory image 
of SCHED at the same time. 

POINT TO HARDWARE COPY OF ID 

POINT TO DISK COPY OF ID 

POINT TO CODE TO BE CORRECTED 

I NIT LOOP COUNTER 

USE Lie # AS SEED FOR EDPRNW, IN RO 

VERIFY ID'S ARE THE SAME 

ABORT IF NO MATCH ON ANY BYTE 

RANDOMIZE RO FOR XOR <LIC# INIT SEED) 

GET ENCRYPTED CODE 

RESTORE FUNCTIONAL CODE 

PUT DECRYPTED CODE BACK IN MEMORY 



MOV 


#ROMBUF, R.I 


MOV 


#DSKBUF. R2 


MOV 


#SCHED, R4 


MOV 


EDARGB, R3 


CALL 


GETLIC 


CMPB 


(Rl)+, (R2)+ 


BNE 


5* 


CALL 


EDPRNW 


MOV 


SR4, R5 


XOR 


RO, R5 


MOV 


R5, (R4) + 



( 

{ 
i 

I 
( 

I c 
f 
I 

f 

t 

I 

I 

I 

< 

( 



TSINIT - 
PRTR50 - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
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f 

I 



5$: 



SOB 


R3, 4* 


MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 




. PRINT 


#TSXHD 


. PRINT 


#NOTLIC 


JMP 


INISTP 



i REPEAT THROUGH ID TESTS 
i RESTORE REGISTERS 



ID CHECKS AND CODE DECRYPTED 

?TSX-F 

NOT LICENSED FOR THIS MACHINE 

ID'S DON'T MATCH, ABORT INIT. 



. NLIST BEX 

NOTLIC: . ASCIZ /This copy of TSX-Plus not licensed for use on this machine./ 

LIST BEX 
. EVEN 

Subroutine to recover incremental license number. Assume it has been 
decrypted already by XORing uiith . RAD50 /SCB/. 

GETLIC: MOV LICNUM, RO ; RETRIEVE DECRYPTED LIC # INTO RO 

RETURN 

Reserve room for both di&.k and hardware copies of the Pro ID number 

and for the incremental license number 

DISK IMAGE OF PRO ID 
INCREMENTAL LICENSE NUMBER 
COPY OF ROM ID LOW BYTES 



DSKBUF: 


. BLKB 


32 


LIGNUM: 


. WORD 





ROMBUF: 


. BLKB 


32 



c 
I 
c 
f 
I 
I 
( 
i 

( 
4 
f 
€ 
4 
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PRTR50 
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i 
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6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
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34 
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52 
53 
54 
55 
56 
57 



.SBmL tDEXPL — Comments on encryption methods 

Encryption and decryption methods used here depend heavily on 
pseudo-random numbers generated bu the linear congrutential method. 
See Hull and Dobell, SIAM Review- 4, 230, 1962. 

For the linear congruence relation: 

X(I) == < A * X<I-1) + C ) MOD M 

X<I) is in the range to M-1 

The viequence has full period M. provideu that: 

1) C is relatively prime to M 

2) If p is a prime factor of M, A MOD p == 1 

3) If 4 is a factor of M, A MOD 4 == 1 

In the special case where M is a power of 2> these rules simplify to 

1 ) C must be odd 

2) A MOD 4 == 1 

. SBTTL EDMTH2 — Encryption method 2 ( XOR with PRN high bytes) 

Using the license number as the initial seed, mask out the low 3 bits< 
add 1 and call the PRN generator this many times to form the seed- 
XOR each byte in the input buffer with the high byte of the next PRN 
and replace the result in the input buffer. Decryption is accomplished 
by a second application of the same process. 

Inputs: 

RO Points to an arg block of the form: 

RO > buff.„5iz i word holding byte length of buffer 

buff„addr ; address of buffer to be encrypted 
Outputs: 

RO Randomized 
input buffer encrypted 



EDMTH2: 



MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2> -<SP) 
R3, -<SP) 



Save registers 



Fetch byte count, buffer pointer and initialize PRN seed 



?*: 



iFetch byte count of input buffer 

/Fetch pointer to input buffer 

j Use license number as initial PRN seed 

i Copy license number to form repeat count 

i No more than 8 repeats 

;Make sure there is at least one 

J Get a new PRN 

; Advance the seed between 1 and 8 times 



Now sweep the buffer* XORing each byte with the high PRN byte 



MOV 


<R0>+, R3 


MOV 


<R0),R1 


CALL 


GETLIC 


MOV 


RO.. R2 


BIC 


#-^"C7, R2 


INC 


R2 


CALL 


EDPRNW 


SOB 


R2, 2* 



f 

4 
f 
4 

i 

i 

i 

i 
c 
« 

I 

i 
i 
< 
I 
€ 
4 



1«: 



CALL 
MOVE 



EDPRNW 
(R1)>R2 



;With seed in RO, get next random number 
; Get next input byte 



4 
4 
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5B 
59 
60 
61 
62 
63 
64 
65 
66 
67 



uesday 


17~Jan-89 


SWAB 


RO 


XOR 


RO, R2 


SWAB 


RO 


MOVE 


R2, (Rl) + 


SOB 


R3, 1* 


MOV 


<SP>+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,Ri 


RETURN 
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• ReveT'Se PRN high and 1 oui bytes 

; Encrypt the byte 

{Restore PRN high and lom bytes for next seed 

; Save encrypted bytes back into input buffer 

; Repeat for entire input buffer 

i Restore registers 



I 

i 

I 
( 
i 



i 
C 
( 
f 
i 
i 
I 
I 
I 
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3BT7L EDr1TH3 — Encrypt ion/ decrypt ion meth 3 ( suiap bytesS<shift bits) 



Using a prn of repeat length same as input string length* select prn 

numbered bytes from the input string* combine them into a word* 

shift the combined bytes a random number of bits* recombine the shifted 

bits and set the confused bytes back into the prn selected string bytes. 

Sign of the byte count indicates: + = encryption* - = decryption. 

If the byte count is or 1* no encryption occurs. If the byte count is 

odd* then one random selected byte will not be encrypted. 



Inputs: 
RO 



f 
I 

i 

c 



Points 
RO : 



to an arg block 
:• buff siz 



buff addr 



Outputs: 
RO 
Input 

* 

EDnTH3: fIDV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

* Initialize 

MOV 
BGE 
NEC 
INC 

1*: CALL 

» Start encry 
ASR 
CALL 
CALL 

2*: TST 
BEQ 
CLR 
CLR 
MOV 
MOV 

} Select firs 
CALL 
ADD 

i 3eii?c:t seco 
CALL 
ADD 

* Use part of 

MOV 
BIC 
j Select encr 



of the form: 

Word holding byte length of buffer. 
Note that buffer must be 512 or less 
in length. Flag encryption by using 
positive byte count < 2 to 512. ). 
Flag decryption by using negative 
byte count (-2 to -512. ). 

Address of buffer to be encrypted 



Randomi zed 
buffer encrypted 

R 1 , ~ < SP ) 

R2, -<SP) 

R3* -<SP) 

R4, -<SP) 

R5, -<SP) 

<R0)+*R3 

©RO* -<SP) 
prn generator of desired 

R3* RO 

1* 

RO 

R3 

INPRNM 
ption loop through string 

R3 

GETLIC 

EDPRNM 

R3 

9* 

R4 

R5 

esp,Ri 

R1*R2 
t random biite 

EDPRNM 

RO* Rl 
nd random byte 

EDPRNM 

RO* R2 
PRNM as semi 

RO* -<SP) 

#--C6, RO 
yption or decryption 



; Save regi sters 



i Save the string length 

* And save the input buffer pointer 
length 

* Recover string length 
i Branch if encryption 

; If decryption, get real repeat 

; If neg* correct for ASR round down 

* Set up for desired repeat length 

> Repeat for 1/2 the string length 

* Get lie. num. for initial seed in RO 

* Seed PRN generator (-adjacent pairs) 

* Less than 2 bytes left? 

*Quit if so (odd len -> 1 byte unch. ) 
;Clean out shifting registers 

i Retrieve buffer pointer 

* And second copy 

* Randomize in range O - <:strlen-l> 

i Point to first random byte of pair 



*Randomize again 
.; Point to next random byte 
random shift amount 

; Save EDPRNM seed for later 

* Get a semi-random shift amount 



i 



< 
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4 

i 
)' 

r 

I « 

# 

i 

I I 

I i 
I 

i 



58 
59 
60 
61 
6S 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 



TST 

BMI 
i Do this part 

BISB 

SWAB 

BISB 

CLC 

ROR 

ROR 

NEG 

DEC 

BR 
> Do this part 
3*: BISB 

SWAB 

BISB 

CLC 

RDL 

ROL 

INC 
; Shift and re 
4*: ASHC 

BIS 

MOV 
; Noiii put encr 

MOVB 

SWAB 

MOVB 

BR 
; Done> restor 
9$: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



R3 

3* 

for encryption 

©Rl, R4 

R4 

@R2. R4 

R4 

R5 

RO 

R3 

4* 

for 

@R1. 

R5 

eR2, R5 



; Positive for encryption 
/Branch if decrypting 

Get first byte without sign extend 

And put it in the high byte 

Combine it uiith first byte 

Always do at least one shift 

Shift once 

Get low bit into r5 

Right shifts for encryption 

Reduce count of pairs remaining 

Skip decryption stuff 



decryption 
R5 



fi 



R5 
R4 
R3 

comb 
RO, 
R5> 
<SP 

ypte 
R4, 
R4 
R4, 
2* 

e re 
(SP 
(SP 
<SP 
(SP 
(SP 
(SP 



ine 
R4 
R4 
)+» RO 

d bytes 

eR2 

@R1 



i Get 
5 An d p u 
; Comb in 
i Always 
J Shift 
; Get h i 
i Reduce 
the ien 1 de>crypted bytes 

Shift 
Recomb 
i Recove 
k into input stri 
; Store 



b^c ; 



9 i ster£> 
>+, RO 
>+, R5 
)+, R4 
)+, R3 
) +, R2 
)+,Rl 



and return 



; Get hi 
i Store 
i Repeat 

j Just p 
i Restor 



rst byte without sign extend 
t it in the high byte 
e it with the first byte 

do at least one shift 
once 
gh bit into R4 

count of pairs remaining 

combined bytes 0> 2, 4 or 6 more 

ine bytes 

V EDPRNM seed 

ns 

low byte at second byte place 
g h byte 

high byte at first byte place 
through string 

op saved buffer address 
e registers 



c 
t 

i 
€ 
I 
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I 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



.SBiiL EDPRNw — Pseudo random number generator with MOD 2''16 

Linear congruential pseudo-random number generator with maximum repeat 
lenath of 65536 (2'^.16) cf. Hull and Dobell and Knuth, vol 2. 



Inputs: 
RO 

Outputs: 
RO 



EDPRNW: 



EDPRNA: 



EDPRNC: 



MOV 

MOV 

MOV 

MOV 

. WORD 

MUL 

ADD 

. WORD 

MOV 

MUV 

MOV 

RETURN 



Seed value 



New PRN* should be used for next seed 



R4, -<SP) 
R5, -<SP) 
RO.. R4 
(PC)+, RO 
104375 
ROj R4 
iPC)+, R5 
012705 
R5, RO 
<SP)+, Rt> 
f SP)+. R^ 



i Save registers 

.; Get seed to be multiplied 

jFetch multiplier 

iMultiplieri can be replaced 

;Multiply by A 

; Add C 

iAdditive* can be replaced 

; Return result mod 65536. as PRN 

i Restore registers 



I 
< 
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4 
I 
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i 
I 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



Oi? ! I L. 



INPRNH 






Using the Hull and Dobeil rules, determine acceptable values for 
A and C to get a repeat range of M. 

Outputs: 

EDMULA Set mith first acceptable multiplier 

EDADDC Set with first acceptable additive factor 

EDMODM Set with desired repeat length 



INPRNM: 



MOV 
MOV 
MOV 
RETURN 



#32. , EDMODM 
#5, EDMUL-A 
#3, EDADDC 



; Get repeat length to cover Pro ID 
j Use first valid A 
; And first valid C 



f 
f 
f 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 

39 030074 
40 
41 
42 
43 

44 030074 

45 000000 

46 000001 
Errors detected: 

#** Assembler statistics 
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Work file reads: 
Work file writes: 
Size of work file: 
Size of core pool: 
Operating system: 







11518 

17920 

RT-11 



3DTTL EDPRNM 



Generate pseudo-random number in specified range M 



*****##^$«#^^**####««#«•ft««*«*****#*****#*#******#»********************«•*■«•** 
# INPRNM MUST BE CALLED BEFORE FIRST SEED IS PASSED TO THIS ROUTINE!!!! # 

Using linear congruential method (cf. Hull and Dobell), generate 
pseudo-random number using seed passed in RO. Return new PRN in RO. 



Inputs: 
RO 

Outputs: 
RO 

DPRNM: 

MOV 
MOV 
CMP 
BLO 
MOV 
CLR 
DTV 
MOV 

1*: MOV 
MUL 

EDMULA: . WORD 
ADD 

EDADDC: . WORD 
CLR 
DIV 
. WORD 
MOV 
MOV 
MOV 
RETURN 



Seed value* must be in range to M (EDMODM) 

New pseudo-random number* should be used for next seed 



EDMODM: 



R4, -<SP) 
R5, -<BP) 
RO, EDMODM 
1* 

RO, R5 
R4 

EDMODM. R4 
R5, RO 
RO, R4 
(PC)+,R4 

<PC)+, R5 
13849. 
R4 

<PC)+, R4 
256. 
R5, RO 
<SP)+, R5 
<SP)+, R4 



; Save R4 and R5 

Is seed in range to EDMODM? 

Branch and proceed if so 

Set up to divide it by EDMODM 

Set up for divide 

Divide it 

And use remainder as seed 

Get current seed ready to be multiplied 

Multiply by chosen A 

Replace at run-time with 5 

Add in C 

Replace at run-time with 3 

Clear high word for division 

Perform mod M 

Replace at run-time with 32. 

Return remainder 

Restore R4 and R5 



. IFF 
DSKBUF 
. ENDC 



; Assemble if protection code not included 
; Define dummy DSKBUF global symbol 



} NE,PROCID 

;NE, PROCID 

Address of real top of TSINIT, including PRO init code 

PROITP: 

. CSECT TSX END 
. END 



Words 
Words 



< 45 Pages) 
( 70 Pages) 



f 
f 



c 

4 
( 
f 
f 

c 

( 
C 

€ 



Elapsed time: 00:02:16.32 
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i, 



*8BIT 


1-130 


41-72 






















*DEAD 


1-123 


16-18 


16 --65 


29-69 


30-27 


39-20 














*FORM 


1-126 


41-69 






















«HARD 


1-155 


16-20 


16-67 


24-30 


29-27 
















*MEMSZ 


1-142 


45-Ul» 






















*NOIN 


1-113 


16-71 






















*OVRH 


1-137 


67-25 






















*PHONE 


1-110 


16-69 






















*SXON 


1-90 


41-25 






















*TAB 


1-126 


41-66 






















. . . VI 


e-29 


8-29 


8-45 


8-46 


25-19 


25-23 


25-31 


25-32 


25-33 


25-36 


25-54 


25-55 




25-61 


25-63 


25-67 


25-78 


25-182 


26-220 


26-225 


26-226 


26-242 


26-242 


29-04 


29-85 




29-91 


29-92 


29-96 


29-97 


29-101 


30-50 


30-50 


30-50 


30-57 


30-57 


30-58 


30-58 




30-58 


30-62 


30-62 


30-62 


30-70 


30-70 


30-72 


30-72 


30-84 


30-95 


30-96 


30-102 




30-103 


30-108 


30-111 


30-116 


30-119 


31-30 


31-30 


31-30 


31-42 


31-42 


31-43 


31-43 




31-43 


31-47 


31-47 


31-47 


31-55 


31-55 


31-56 


31-56 


31-68 


31-77 


31-78 


31-84 




31-85 


32-60 


32-61 


32-85 


32-85 


32-85 


32-89 


32-89 


32-90 


32-90 


32-90 


32-94 




32-94 


32-94 


32-99 


32-99 


32-101 


32-101 


32-110 


32-131 


32-132 


32-138 


32-139 


40-21 




40-21 


40-21 


40-27 


40-27 


40-62 


40-62 


40-62 


40-75 


40-76 


40-81 


40-82 


42-22 




42-22 


42-22 


42-29 


42-29 


42-31 


42-31 


42-68 


42-68 


42-68 


42-72 


42-73 


42-73 




42-73 


42-78 


42-7B 


42-78 


42-82 


42-82 


42-B3 


42-83 


42-84 


42-84 


42-84 


42-91 




42-101 


42-102 


42-108 


42-109 


43-43 


43-43 


43-43 


43-47 


43-48 


43-48 


43-48 


43-52 




43-52 


43-52 


43-55 


43-55 


43-60 


43-65 


43-65 


43-66 


43-76 


43-77 


43-83 


43-84 




45-160 


45-161 


47 76 


47-77 


51-77 


51-77 


53-26 


53-26 


53-26 


53-38 


53-38 


55-25 




55-25 


57-21 


57-21 


57-21 


57-30 


57-30 


57-64 


57-64 


57-113 


57-113 


59-8 


59-9 




59-12 


60-36 


60-36 


60-50 


60-50 


61-35 


61-35 


67-17 


67-17 


67-51 


67-52 


69-24 




69-24 


69-52 


69-53 


69-58 


69-59 


72-34 


72-35 


73-30 


73-30 


73-73 


73-74 


74-25 




74-25 


74-25 


74-54 


74-54 


74-81 


74-81 


74-93 


74-94 


74-99 


74-104 


74-105 


75-78 




75-79 


76-20 


76-20 


76-20 


76-22 


76-23 


76-32 


76-32 


76-51 


76-51 


76-70 


76-70 




76-95 


76-95 


76-138 


76-139 


78-25 


78-25 


78-32 


78-34 


78-53 


78-54 


78-57 


79-19 




79-24 


79-26 


79-28 


80-27 


80-53 


81-20 


81-21 


82-18 


83-26 


84-26 






. . . V2 


8-29 


8-29 


B-29# 


8-29# 


26-242 


26-242 


26-242# 


26-242# 


30-50 


30-50 


30-50# 


30-50# 




30-57 


30-57# 


30-58 


30-58 


30-58# 


30-58# 


30-62 


30-62 


30-62# 


30-62# 


30-70 


30-70 




30-70# 


30-70# 


30-72 


30-72# 


31-30 


31-30 


31-30# 


31-30# 


31-42 


31-42# 


31-43 


31-43 




31-43# 


31-43# 


31-47 


31-47 


31-47# 


31-47# 


31-55 


31-55 


31-55# 


31-55# 


31-56 


31-56# 




32-85 


32-85 


32-S5# 


32-8 5# 


32-89 


32-89# 


32-90 


32-90 


32-90# 


32-90# 


32-94 


32-94 




32-94# 


32-94# 


32-99 


32-99 


32-99# 


32-99# 


32-101 


32-101# 


40-21 


40-21 


40-2 1# 


40-2 1# 




40-27 


40-27 


40-27# 


40~27# 


40-62 


40-62 


40-62# 


40-62# 


42-22 


42-22 


42-22# 


42-22# 




42-29 


42-29 


42-29# 


42-29# 


42-31 


42-31 


42-31# 


42-3 1# 


42-68 


42-68 


42-6S# 


42-6S# 




42-72 


42-72# 


42-73 


42-73 


42-73# 


42-73# 


42-78 


42-78 


42-78# 


42-78# 


42-82 


42-82 




42-82# 


42-82# 


42-83 


42-83# 


42-84 


42-84 


42-84# 


42-84# 


43-43 


43-43 


43-4 3# 


43-43# 




43-47 


43-47# 


43-48 


43-48 


43-48# 


43-48# 


43-52 


43-52 


43-52# 


43-52# 


43-55 


43-55 




43-55# 


43-55# 


43-60 


43-60 


43-60# 


43-60# 


43-65 


43-65# 


51-77 


51-77# 


53-26 


53-26 




53-26# 


53-26# 


53-38 


53-38 


53-38# 


53~38# 


55-25 


55-25 


55-25# 


55-25# 


57-21 


57-21 




57-21# 


57-21 # 


57-30 


57-30 


57-30# 


57~30# 


57-64 


57-64 


57-64# 


57-64# 


57-113 


57-113# 




60-36 


60-36 


60-36# 


60-36# 


60-50 


60-50 


60~50# 


60~50# 


61-35 


61-35 


6i-35# 


61-35# 




67-17 


67-17 


67-17# 


67-17# 


69-24 


69-24 


69-24# 


69-24# 


73-30 


73-30 


73-30# 


73-30# 




74-25 


74-25 


74~25# 


74-25# 


74-54 


74-54 


74-54# 


74-54# 


74-81 


74-8 1# 


76-20 


76-20 




76-20# 


76-20# 


76-32 


76-32 


76-32# 


76-32# 


76-51 


76-51 


76-51# 


76-51# 


76-70 


76-70 




76-70# 


76-70# 


76-95 


76-95# 


78-25 


78-25 


7S-25# 


7S-25# 










AHEND 


1-107 


50-21 






















ALBFX 


26-160 


39~12# 






















ALCHRB 


25-142 


28-14# 






















ALCOVL 


67-34 


69-1 5# 






















ALCSLO 


25-103 


38-12# 






















ALCWRK 


25-138 


27-12# 
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ALOCBF 


25-102 


37-14# 




























AREA 


1-1S3# 


8-29 


25-19 


25-23 


25-61 


25- 


-63 


25-78 


25- 


-182 


26-220 


26-242 


30-50 


30- 


-58 




30-62 


30-70 


31-30 


31-43 


31-47 


31- 


-55 


32-85 


32- 


-90 


32-94 


32-99 


40-21 


40- 


-27 




40-62 


42-22 


42-29 


42-31 


42-68 


42- 


-73 


42-78 


42- 


-82 


42-84 


43-43 


43-48 


43- 


-52 




43-55 


43-60 


53-26 


53-38 


55-25 


57- 


-21 


57-30 


57- 


-64 


60-36 


60-50 


61-35 


67- 


-17 




69-24 


73-30 


74-25 


74-54 


76-20 


76- 


-32 


76-51 


76- 


-70 


78-25 


78-32 


78-34 


79- 


-19 




79-24 


79-26 


79-28 


























AUTHAN 


1-107 


50-21 


50-23 


























BADDEV 


30-104 


30-1 16# 


31-86 


32-140 


42-110 


43- 


-85 


















BADLIN 


6-6# 


29-85 




























BADOPN 


6-ll# 


30-96 


30-103 


























BADVEC 


29-47 


29-49 


29-51 


29-9 1# 
























BASMAP 


1-101 


47-52* 




























BDLMSG 


6-8# 


29-97 




























BDSPOP 


6-14# 


32-61 




























BDVMSG 


6-7# 


29-92 




























BOSF 


6-15# 


32-132 


32-139 


























BRKPT 


1-102 


76-113 




























BYTES 


6-34# 


25-36 




























C. CSW 


1-143 


33-30^* 


77-24* 


77-35* 
























C. DEVG 


1-143 


33-31 -K- 


77-33* 


























C, SBLK 


1-143 


33-23^^ 




























CIDEVX 


1-143 


33-27 


41 -112«- 


























CAfBLK 


1-148 


75-52-1^ 




























CA*DVU 


1-148 


75-54* 




























CA$HBL 


1-149 


75-64* 




























CA*HFL 


1-149 


75-62* 




























CA*HSH 


1-149 


75-66* 




























CA*UBL 


1-149 


75-60* 




























CA*UFL 


1-149 


75-58* 




























CA*WCT 


1-148 


75-56* 




























CC**SZ 


1-150 


37-74 




























CCAFLG 


1-1S7# 


25-23 


81-27 


























CCATST 


26-246 


81-14 


Sl~27# 


























CCBHD 


1-150 


37-73* 




























CCLNAM 


1-194# 


40-62 


40-65 


























CCLSAV 


1-128 


40-64 




























CD**SZ 


1-86 


37-64 




























CDX*DH 


1-142 


37-104 




























CDX*DL 


1-151 


16-22 




























CDX*DZ 


1-150 


16-50 


16-75 


20-37 
























CDX*VH 


1-153 


16-52 


16-77 


20-40 


37-106 






















CFHMSe 


6-lS# 


30-116 


53-31 


57-23 
























CHAIN 


1-117 


25-85 




























CHKCLD 


32-40 


34-13# 




























CHKMEM 


26-148 


37-140 


55-20 


76-31 


76-39 


81- 


-11# 


















CHNSIZ 


1-122 


77-21 




























CKLIN 


26-34# 






























CL*EPN 


1-127 


41-58* 




























CL*EPP 


1-127 


41-52* 




























CL*EPS 


1-126 


41-31* 


41-51* 


























CL*LEN 


1-157 


41-79* 




























CL*LIX 


1-156 


24-19* 


41-23 


























CL*OPT 


1-127 


41-75* 




























CL*ORA 


1-125 


41-43* 




























CL*ORB 


1-125 


41-36* 
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26-77* 

i 

41-108 70-156 ^ 

( 

i 

I 

59-12 74-99 78-57 

i 

75-28 75-44 

4 
I 



* « 


CL$ORE 
CL*ORG 


1-125 
1-125 


41-46* 
41-38* 










CL*ORP 


1-125 


41-37* 










CL*ORS 
CL*STA 


1-127 
1-127 


41-44* 
41-83* 










CL*VER 


2-13# 


25-227 








CLDEVX 


1-143 


33-29 


41-94* 








CLEOFS 


1-126 


41-53 


41-54 








CLHEAD 


1-143 


41-99 


41-117 






CLINCP 


1-155 


24-21 








( 


CLINIT 


26-72 


41-11« 










CLKiOO 


1-1SS# 


7-165 


25-14* 






CLKRTI 


1-107 


7-71 










CLKVEC 


1-158 


7-71* 


7-72* 


7- 


-165* 25-14 




CLORSZ 


1-112 


41-39 








CLOTIR 


1-155 


24-20 










CLSIZE 


1-143 


41-100 










CLSTS 


1-118 


41-96 


41-114 






CLTOTL 


1-113 


26-70 


33-18 


41- 


-18 41-101 




CLVERS 


1-111 


25-224 


25-227* 








CO*SBT 


1-130 


41-74 








CO*DEF 


1-126 


41-62 










CO*FF 


1-126 


41-71 










CO* TAB 


1-126 


41-6B 








CDNFG2 


1-105 


25-165* 


25-166* 


25- 


-169* 26-78 




CONFIG 


1-104 


25-163* 


26-5 








CONSPC 


6-13# 


30-108 








COSRT 


6-36# 


74-94 










CRLF 


6-9# 


29-96 


29-101 


30- 


-111 30-119 




CS*ENT 


1-145 


77-24 








CS*NMX 


1-88 


77-34 








t 

1 ^ 


CS*OPN 


1-145 


77-24 








CSHALC 


1-122 


37-71 


70-163 


75- 


-17 75-18 


CSHBAS 


1-105 


9-39 


11-37* 






1 


CSHBFP 


1-148 


75-47* 








1 1 


CSHBUF 


26-205 


75-12# 








CSHDEV 


1-86 


37-63* 










CSHDVN 


1-86 


37-67* 








\ 


CSHOVF 


6-4 1# 


75-79 








CSHSIZ 


1-148 


75-33* 








k 


CSHVEC 


1-106 


9-42 








t ^ 


CURDEV 


l-205# 


60-54* 


61-40 


63- 


-62 


CUR NAM 


l-206# 


52-25* 


57-20* 


59- 


-10 




CVTDVU 


32-37 


35-14# 


77-29 








CW*50H 


1-104 


26-5 








CW*BTH 


1-103 


25-161 










CW*ESP 


1-113 


25-166 










CW*FB 


1-103 


25-162 










CW*FGJ 
CW*GDH 


1-103 
1-103 


25-162 
25-161 










CW*LGS 


1-103 


25-161 








CW*PRO 


1-107 


25-116 


26-78 








CW*QBS 


1-115 


25-169 










CW*USR 


1-104 


25-162 








CW*XM 


1-104 


25-162 










CXTALC 


26-92 


46-12# 
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CXTBAS 


1-112 


46-24 














CXTBUF 


1-119 


37-134* 














CXTPAG 


1-87 


30-40 


40-41 


46-45* 


48- 


-31 






CXTPDR 


1-111 


46-38* 














CXTRMN 


1-112 


46-23* 


46-24* 












CXTSIZ 


1-111 


46-16 














CXTWDS 


1-111 


46-30* 


46-42 












DATIMH 


1-105 


26-29* 














DAT I ML 


1-105 


26-30* 














DC**SZ 


1-133 


39-64 














DCCSIZ 


1-85 


70-99 














DEVSIZ 


1-93 


26-50* 


26-65* 


41-98* 


41 = 


"116* 


54- 


-50* 


DEVVEC 


7-139 


13-6# 














DFJMEM 
DHBFSZ 


1-134 
1-109 


48-50* 
37-110 


37-112 












DHINIT 
DHLPRM 


16-56 
16-82 


21-S# 
17-S# 














DHDINT 


1-136 


20-42 














DI*CL 


1-118 
















DI*DU 


1-156 


3-24 














DI^LD 


1-ilS 


26-63 














DI*MU 


1-156 


3-26 














DI*PI 


1-157 
















DI*TT 


1-119 


26-48 














DI*XL 


1-156 


3-25 














DM$CSR 


1-152 


17-13 


17-15* 


17-16* 


21- 


-27 






DM*LSR 


1-152 


17-17* 














DMYDEV 


1-95 


32-34 


32-57 


50-25 


74 


-20 






DOHNLC 


55-46 


57-108 


60-13# 












DORTI 


76-144# 
















DS*ABT 


1-125 
















DS*DIR 


1-139 


26-63 


54-55 












DS*NRD 


1-130 


54-57 














DS$SFN 


1-140 


26-63 














DS*VSZ 


1-139 


26-63 














DSKBUF 


1-58 


90-39# 














DSTBLK 


1-195# 


80-27 


80-32 


80-39 










DTLX 


1-104 


40-52* 














DTYPE 


1-129 


50-27 














DV**SZ 


4-6# 


52-58 














DV*FLG 


4-5# 


52-56 














DV*NAM 


4-4# 


52-54 














DVFLAG 


1-139 


26-49* 


26-64* 


41-97* 


41- 


-115* 


51- 


-43 


DVFLBS 
DVFLND 


4-13* 
4-42# 


52-53 
52-59 














DVSTAT 


1-89 


26-48* 


26-63* 


41-96* 


41- 


-114* 


54- 


-51* 


DW**SZ 


1-115 


70-144 














DX*DMA 


1-139 


4-16 


4-18 


4-19 


4- 


-20 


4- 


-21 




4-33 


4-34 


4-37 


4-38 


52- 


-65 






DX*EBA 


1-92 


4-39 


26-64 


52-67 










DX*IBH 


1-97 


4-18 


4-31 


4-32 


4- 


-33 


4- 


-34 


DX$MAP 


1-146 


51-52 


65-31 


65-46 










DX*MPH 


1-97 


4-14 


4-15 


4-16 


4- 


-IS 


4- 


-24 




4-33 


4-35 


4-36 


4-38 


4- 


-40 


4- 


-41 


DX*NCA 


1-158 


4-39 


41-97 


41-115 


54- 


-59 






DX*NHM 


1-97 


4-17 


4-19 


4-23 


4- 


-26 


4- 


-34 



54-31* 54-59* 



65-31* 



65-42 



54-55 



54-57 



4-23 
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4-26 
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4-25 
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4-27 
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4-29 



4-30 



4-31 
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1 


DX*NMT 
DX*NRD 


1-130 
1-131 


41-97 
41-97 


41-115 
41-115 


54-59 












DX*NST 


1-133 


4-23 


4-34 












DZINIT 


16-5S 


19-8# 
















DZOINT 


1-136 


20-36 
















EMMAP 


1-99 


7-123 


45-74 


45-118 


57-79 


57- 


"84 


62-36 


EMTENT 


1-ioe 


7-89 
















ENTVEC 


9-35 


9-43 


9-51 


10-11# 












ERHINS 


6-22# 


53-97 














ERHMSG 


6-19# 


53-40 


55-27 


57-66 












ERHNDV 


6-20# 


53-53 
















ERP 


29-86 


29-94# 














ERRLOG 


1-135 


58-22 
















EXCBUF 


1-84 


27-17 
















EXTLSI 


1-251# 


45-128 


51-54 


65-24 










FC**SZ 


1-135 


70-70 
















FC*LBN 


1-116 


39-61 
















FETDEV 


1-199# 


80-23# 


80-27 


80-53 












FF**SZ 


1-116 


39-56 
















FILBLK 


l-204# 


57-50* 


57-64 


57-92* 


73-20* 


73- 


-30 


73-57* 




FMEMHI 


1-201# 


26-167 


45-112* 


45-123 


47-65* 


57- 


-107* 


57-109 




FHEMLO 
FNDHRB 


l-202# 
t-58 


26- 166 ft- 
63-35# 


47-37 


47-62 


64-28 










FORCED 


32-26 


36-8# 














FORK 


1-89 


58-15 
















FPTRAP 


l-US 


7-95 
















FQ$«SZ 


1-95 


37-37 














FREIOQ 


1-118 


37-18* 
















FREPGS 


1-119 


48-22* 
















FRKOEN 


1-95 


37-34 


37-37 












FRKINI 


1-95 


37-36* 














I 


FSTDL 


1-94 


39-22 














1 ^ 


FSTIOL 


1-155 


24-11 


37-102 


30-24 










FW**SZ 


1-116 


39-58 














1 


GENTOP 


1-157 


25-27 














) , 


GETHNH 


26-201 


56-13# 
















GETHNL 
GETMAP 


26-96 
26-171 


50-14# 
6S-12# 














) 


GETODT 


25-149 


76-13# 
















OETOVL 
GETSRT 


68-34 
26-179 


72-12# 
74-13# 














^ 


GTBYT 


1-102 


58-25 














GTLIN 


l-235# 


25-51 
















H. CSR 


1-95 


53-76 
















H. DSTS 


1-89 


53-48 


54-51 














H. DVSZ 


1-93 


54-50 
















H. GEN 


1-89 


53-63 


53-63 


57-31 












H. INS 


1-95 


53-88 
















H. SIZ 
HANDSK 


1-93 
1-83 


54-49 
54-43* 
















HANENT 


1-89 


13-14 


26-51* 


26-66* 


41-99* 


41 


-117* 


55-34* 




HANMAP 


57-101 


60-22 


60 63 


61-41 


62-14# 










HANNAM 


l-236# 


53-24* 


53-26 


57-19* 


57-21 










HANPAR 


1-97 


13-20 


14-25 


14-54 


51-60* 


51 


-72* 
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HANRCB 


1-83 


28-22* 


63-40 
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HANRCO 


1-83 


28-23* 


28-24* 
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HANS I 2 


1-93 


41-102^* 


41-113* 


51-64 


54-49* 


55-13 


57' 


40 


57-100 










HANUMP 


57-103 


60-24 


60-72 


60-79 


61-31 


62-49# 
















HANXIT 


1-97 


14-59 
























HANXMR 


1-58 


64-22# 
























HF*LIN 


1-151 


























HF*MC 


1-152 


21-21 


21-22 






















HF*RIE 


1-151 


























HF*TIE 


1-151 


























HF*TSB 


1-151 






















) 




HGENFL 


l-243# 


53-68« 


57-31* 


58-17 


58-20 
















HI MAP 


1-94 


7-133 


47-56* 


48-20 




















HLERR 


51-67 


53-32 


53-4 1 


53-54 


53-66 


53-81 


53 


-90 


55-20 


57-24 


57-67 


1 




HMAP 


1-198# 


57-49* 


57-75 


57-91* 


















HN2BIG 


6-29# 


51-66 
























HSGER 


6-24# 


53-65 




















1 


HV**SZ 


3-19# 


53-56 
























HV*DMY 


3-17# 






















t 




HV$ID 


3~16# 


53-49 




















\ 




HV*VER 

HVEND 

HVTBL 


3-18# 
3-27# 
3-23# 


53-51 
53-57 
53-46 
























ICONFG 
IDSFLG 
I1**SZ 


l-247# 

1-100 

1-85 


45-128* 

45-48* 

37-57 


51-54 


65-24 




















ILSW2 

INDDBL 

INDDBS 


1-113 
1-140 
1-140 


16-69 

42-40* 

42-45* 


41-65 
42-56 






















INDFIL 
INDINI 
INDNAM 
INDOPN 
INDSAV 
INDTSV 
INICLK 
INIDEV 
INIJMP 
INIOVL 


1-84 
26-117 
l-238# 
6-42# 
1-140 
1-140 
26-5# 
26-47# 
1-108 
7-13 


42-62 

42-12# 

42-21* 

42-102 

42-17* 

42-88 

7-161 

9-9# 


42-68 

42-22 

42-109 

42-50 


42-73 
42-51 


42-78 


42-84 


42- 


-89 


42-91 










INISTP 


7-165# 


25-37 


25-56 


26-227 


29-102 


30-112 


30- 


-120 


32-64 


32-133 


40-77 








47-78 


59-13 


67-53 


69-54 


69-60 


72-36 


73- 


-75 


74-100 


74-106 


75-80 


! 






78-58 


81-22 


81-29 
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INITGO 


1-57 


25-S# 


25-104 


25-106 




















INI TOP 


1-57 


1-208 


25-132 


25-134 


66-52 


66-54 


84- 


-37# 












INMXV 


1-109 


20-16 
























INRECV 


1-109 


16-28 
























INSCKl 


51-25 


52-16# 
























INSCK2 


51-31 


53-i4# 
























INSTBL 


1-85 


37-54* 
























INSTBN 


1-85 


37-59* 
























INTEN 


1-89 


58-16 
























INTMXl 


1-110 






















1 




INTSND 


1-114 


7-24* 


7-152 


25-113* 
















1 




INTSSZ 


1-84 


25-122 




















) 




INTSTK 


1-114 


7-155 


25-123* 




















INVEC 


1-87 


16-27 


29-38 


















1 




lOMAP 


1-99 


1-138 


7-126 


i2--37 
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I OP AGE 


1-99 


44-29 
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\ 1 


lOQSIZ 
lOTIMR 
JCXFGS 

JMPO 
JSWLDC 


1-119 
1-135 
1-134 
1-112 
1-104 
1-117 


37-19 
53-19 
4S-32* 
37-44 

7-78 
25-85 










KEYSEG 


9-23 


11-10# 


72-22 








KMNBAS 


1-120 


40-34 










KMNCHN 


1-98 


40-56 










KMNHI 


1-96 


40-35* 








1 


KMNNAM 


1~193# 


40-21 


40-57 








KMNPGS 


1-98 


40-42* 


48-26 








KMNSTK 


1-98 


40-44* 










KMNSTR 


1-98 


40-46* 










KMNTOP 


1-96 


40-32* 










KPARO 


1-98 


44-14 










KPAR5 


1-136 


7-130* 


13-9 


13-22* 


13-62* 14-52 






62-32* 


62-57* 


73-42 


73-43* 


73-54* 




KPAR6 


1-158 


60-71* 


60-78* 


61-26 


61-27* 61-45H 




KPAR7 


1-101 


44-29* 










KPDRO 


1-101 


44-16 










LCDTYP 


1-110 


16-22 


16-72 


37-104 


37-106 




rxtuNT 


1-137 


24-13* 


24-ie 


24-26* 


41-26* 




LDDEVX 


1-139 


26-56* 


26-61* 








LDHAND 


50-31 


50-46 


51-21# 








LDHBIB 


1-111 


37-108* 










LDHBIP 


1-111 


37-109* 










LDHB2B 


1-111 


37-111* 










LDHNHI 


56-29 


57-12# 










LDHNLO 


51-73 


55-12# 










LORE AD 


60-64 


61-15# 








1 


LDVERS 


1-115 


25-228 


25-230* 


25-233* 




1 


LHIRBA 


1-90 


38-30 


38-39* 








LHIRBB 


1-90 


38-43* 








1 


LHIRBC 


1-91 


38-54 


38-60* 


38-61 


38-67* 


1 g 


LHIRBE 


1-90 


38-48* 










LHIRBG 


1-90 


38-45* 










LHIRBP 


1-90 


38-44* 








1 


LHIRBS 


1-91 


38-46* 










LINBUF 


1-94 


39-28* 










LINCHK 


26-34 


29-9# 








1 ^ 


LINEND 
LININI 


1-96 
7-113 


39-32* 
16-S# 










LINIR 


1-155 


24-21* 


24-29* 








LINSIZ 


1-94 


39-29 










LINSPC 


1-97 


39-30* 










LINTRP 


29-41 


29-43 


29-68 


29~84# 






LINTYP 


24-9# 


29-26 










LMXLN 


1-151 


16-92 


17-16 


18-14 






LMXNUM 


1-87 


16-73 


17-12 


18-12 


29-29 41-29 




LODINI 


S-9# 


9-24 










LODOVL 


72-26 


73-9=» 










LOKBAS 


1-106 


9-47 


11-33* 








LOKCSH 


1-133 


39-71* 










LOKMEM 
LOKVEC 


1-101 
1-106 


39-55* 
9-50 
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LOMAP 


1-93 


7-131 


47-50* 


48- 


-21 


LOTBUF 


1-96 


39-38* 








LOTEND 


1-96 


39-4 !«• 








LOTS I Z 


1-96 


39-39 


39-40 


41- 


-42 


LOUT I R 


1-155 


24-20* 


24-28* 






LOWEND 


5-23# 


66-39 








LOWOVL 


5-20# 


66-36 








LSTDL 


1-94 


39-24 








LSTHL 


1-155 


16-43 


16-64 


37- 


-114 


LSTLIN 


1-127 


29-21 








LSTMX 


1-117 


16-48 


37-90 






L3TFL 


1-87 


24-9 


30-26 


37- 


"100 


LSTSL 


1-S8 


39-46 


42-57 


43= 


-32 


LSWIO 


1-90 


41-25* 








LSW3 


1-113 


16-18 


16-20 


16- 


-65 


LSW5 


1-158 










LSW6 


1-123 










LSWPBK 


1-SS 










LTTPAR 


1-106 


39-26* 








LXCL 


1-84 


24-27* 








MA*sys 


1-113 


7-135 








MAPALC 


26-211 


47-27# 








MAP PAR 


1-97 


7-130 


47-64* 






MAPS I Z 


1-99 


45--10B 


4 5~11<J 






MAP SYS 


1-137 


7-104 


76-1 IB 






MAXDEV 


1-83 


60-59 








MAXOVL 


5-12# 


5-14 








MAXSLO 


1-91 


38-33 


38-35 






MB**SZ 


1-145 


70-106 








MEM256 


1-133 
74-63 


7-124 
74-69 


45-125* 


45- 


-134 


MEMIIMI 


25-155 


44-6# 








MEMLIM 


l-242# 


25-72* 


81-11 






MEMPAR 


1-131 


7-93 








MEMTST 


26-88 


45-24# 








MF*CM 


1-152 


21-30 








MF*CS 


1-152 


21-29 








MF$LE 


1-152 


17-17 








MF*LIN 


1-150 


17-15 








MH*LPR 


1-152 










MH*PBR 


1-153 










MH*SCR 


1-151 


21-12 


21-21* 


21- 


-22 


MHNSIZ 


1-108 


57-46* 








MI**SZ 


1-147 


65-56 


65-68 






MI*LNK 


1-146 


39-86 


65-71* 






MI*SBP 


1-146 


39-82* 








MINCTR 


1-120 










MIOBHD 


1-146 


39-80 


65-65* 






MIODBG 


1-128 


65-22 








MIOFLG 


1-146 


39-78 


65-51* 


70- 


-150 


MIONWB 


1-147 


65-57 


65-76 






MIOWHD 


1-147 


65-75* 








MMENBL 


1-93 


7-118 


45-71 


45- 


-119 


MONFQH 


1-112 


37-43* 








MONVEC 


1-120 


7-17 


28-24 


53- 


-92 


MPARO 


1-92 


49-P20 
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I I 

I ' MPAR16 1-92 49-25 

MPARFL 1-92 49-7 

MPIVSZ 14-19# 26-104 

MPPHY 1-102 58-26 

MR**SZ 1-145 70-109 

MSGBAS 1-103 11-21* 

MTSXDV 7B-40 78-53# 79-35 

MU$TXT 1-117 70-114 

MUXVEC 19-17 20-9# 21-17 22-17 

HVSIz 1-131 46-25 46-49 

MW**SZ 1-147 65-57 65-78 65-82 

MW*LNK 1-147 65-79« 

mJ™ J"^^ ^'^'^^ ^'^~^^* l*^--^2 29-31 29-72^ 

MXDTR 1-110 19-26* 

MXJADR 1-142 48-43* 

liXJMEM 1-134 48-38* 

MXLNT 1-118 37-92* 

MXLPR 1-113 16-94* 

MXRBUF 1-110 19-24 22-27 



I 

c 



4 

r 



I 



« 



4 



MXTYPE 1-109 16-50 16-52 20-37 20-40 

MXVEC 1-87 20-15 29-33 

NDL 1-96 30-25 

NDVRCB 1 -S3 28" 1 3 

NEDCHR 1-155 24-28 

NEXMSG 6-27# 

NFRESB 1-115 32-118* 



. NFSBLK 1-134# 43-60 43-61 43-6? 

NIOL 1-122 41-101 

NLINES 1-121 39-58 

NMSNMB 1-132 37-50 

NMXHAN 1-197# 26-101 51-59* 

NOCCL 6-17# 40-76 

NOCLDK 6-25# 26-226 

NOCSRR 6-21 # 53-80 

NOKMON 6-16# 40-82 

NOODT 6-2S# 76-23 



NOSYDV 6-3 1# 

NOXM 25-61 45-160# 

NSCP 1-86 37-130 

NSIP 1-85 37-56 

NSL 1-96 30-25 

. NSPLBL 1-114 32-80 32-117 70.-.-79 

^Sl\-ir f"?!. 2?-!?* 32-44* 32-50* 32-75 32-114 



NSPLFL 1-114 37-78 

NUMCCB 1-94 37-74 

NUMCDB 1-85 39-54* 

NUMDCD 1-133 39-53* 



NXMMSG 6-26# 45-161 

0. ADR 1-136 11-15 66-35 69-30* 70-22 

0. BLK 1-136 8-29 69-24 73-20 



< 

I 

I 

« 

I 

( 

f 
I 

( 
i 

€ 

I 

I 



NUMDEV 1-88 13-57 26-52* ->^.-'^9# '->A-Ar -^.^ -. ... 

< 54-26 56-34 65-33 6541 78-3^ ^'nL ^'"^'-'* '''"''^ 41-110* 41-111 52-43 54-25* 

NUMFRK 1-95 37-34 37-37 ^^'"^^ I 

NUHIOQ 1-1 IS 37-19 

' NUMRDB 1-121 1-149 26-175 

NXIVMH 1-84 26-103 
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t 
i 
I 



0. PAR 


1-136 


8-34^J 


73-25* 




















0. SIZ 


1-136 


8-21 


8-23 


69-34 


70-26 


73-19 














ODTBAS 


i-179# 


76-44 


76-68 




















ODTBLK 


i-237# 


76-20 






















ODTFLG 


i-lS5# 


25-a9«- 


25-147 




















ODTRDM 


6-30# 


76-139 






















ODTRDX 


76-34 


76-52 


76-73 


76-138# 


















DDTSTA 


l-24i# 


76-46* 


76-123 




















ODTTOP 


1-186# 


76-58* 


76-129 




















ODTTRP 


1-124 


76-128* 






















OORCLO 


70-61 


70-1 56# 






















OORCSH 


70-63 


70~168# 






















OORDBG 


70-62 


70-162# 






















OORDMP 


70-64 


70-174# 






















DORLOK 


70-54 


70-95# 






















OORMIO 


70-60 


70-150# 






















OORMSO 


70-55 


70-104# 






















QORPLS 


70-57 


70-121# 






















OORSLE 


70-58 


70-136# 






















00RSP2 


70-53 


70-89# 






















OORSPL 


70-52 


70-76# 






















OORSWP 


70-56 


70~130# 






















OORUSR 


70-51 


70-69# 






















ODRWIN 


70-59 


70-1 4 2# 






















OOXFIN 


70-182 


70-197# 






















OOXNO 


70-77 
70-175 


70-90 
70-180# 


70-96 


70-105 


70-122 


70-131 


70-137 


70-143 


70-151 


70-157 


70-163 


70-169 


OOXYES 


70-37 
70-158 


70-72 
70-164 


70-85 
70-170 


70-91 
70-176 


70-98 
70-lS6# 


70-100 


70-117 


70-126 


70-132 


70-138 


70-146 


70-152 


OPNCHN 


32-48 


77~14# 






















OPNKMN 


26-113 


40-1 7# 






















OPNRSF 


26-139 


31-11# 






















OPNSWP 


26-135 


30-13# 






















OPTOVL 


68-21 


69-42 


70-1 5# 




















OS«*SZ 


5-10# 


5-14 


9-26 


66-46 


67-36 


68-23 


68-35 


71-31 










OS*FLG 


5-S# 


9-21 


66-42* 


66-64* 


67-33* 


68-32 


71-22 












OS*OVL 


5-9# 


8-15 


11-14 


66-34 


67-32* 


69-19 


70-21 


73-18 










OS*SIZ 


5-7# 
71-28 


8-19 
72-16 


9-25 


66-32 


66-43 


66-65 


67-35* 


68-22* 


68-30 


71-20 


71-24 


71-28 


OSEND 


5-15# 
























OSLAST 


5-16# 


9-27 


66-47 


67-40* 


68-24 


68-36 


71-32 












OSTABL 


5-14# 


5-16 


9-20 


66-31 


67-31 


68-20 


68-29 


71-19 










OSZ 


1-176# 
























OTMXV 


1-109 


20-17 






















OTRECV 


1-109 


16-29 






















OVLBAS 


1 -203# 


9-14 


66-30* 




















OVLBLD 


66-23 


67-i0# 






















DVLEND 


70-35 


70-65# 






















OVLLST 


70-31 


70-50# 






















OVLPOS 


25-127 


66-15# 






















OVLTRY 


66-62 


71-14# 






















OVRADD 


1-137 


67-27* 






















PARENL 


1-92 


49-21 






















PARSET 


26-84 


49-7# 






















PHSOVF 


6-35# 


47-77 






















PHYMEM 


1-142 


7-121 


45-107* 
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I 

I 
f 

i 
i 
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I 
I 



i 



4 

i 



PIINSZ 

PISRT 

PMCELS 

PHPAR 

PNAME 

PPTERM 
. PROASM 

PROBUF 

PROCID 

PROFLG 

PROITP 

PRTDEC 

PRTOCT 

PRTR50 

PSW 

PTBYT 

PTWRD 

PVSPBL 

QBUS 

R50C1 

R50C10 

R50Ci7 

R50CHR 

R50CL 

R50CL0 

R50CL7 

R50CSH 

R50LD 

R50L0K 

R50LS 

R50MSG 

R500DT 

R50PI 

R50SY 

R50TI0 

R50TT 

R50USR 

R50VM 

R50WIN 

RED 

RBR 

RC**SZ 

RDB 

RDBEND 

RDERR 

RDINT 

REDUCE 

RELFIL 

RELOC 

REQMIS 

RID 

RLBF 

RLBFND 

RMNPDR 



25-U2# 
1-57 
1-132 
1-132 
1-S9 
79-42 
1-57 
1-20 
29-1 
1-58 
1-24 
1-98 
1-57 
25-35 
29-95 
30-118 
1-94 
1-101 
1-101 
1-115 
1-138 
l-228# 
1 ~229# 
i-230# 
6-44# 
1~225# 



1~226# 
l-227# 
1-219# 



1- 
1- 
1- 
1- 
1- 
1- 



-223# 
■21 7# 
■232# 
■21 5# 
■233# 
•224# 
l-222# 
l-220# 
1-221# 
l-2ie# 
1-231# 
1-216# 
1-178# 
1-117 
1-122 
1-121 
1-121 
6-39# 
1-117 
6-33# 
76-5S# 
1-102 
6-10# 
1~177# 
l-239# 
l-240# 
1-113 



25-120 

l-255# 
39-94# 

39-95<5- 
26-47* 

l-260# 

1-32 
45-54 

l-207# 
25-95 

7-53 
90~44# 
29-100 
S2-8# 
32-63 
45-80* 
58-24 
58-23 
32-115 
25-167 
34-30 
34-32 

84-17 
34-17 
34-19 
34-21 
11-35 
26-62 
11-31 

11-19 
25-87 



11-39 
26-47 
11-27 



11- 
76- 
16- 
37- 

26- 
26- 



•23 
•47 
102 
20 
177 
181 



8-46 
16-106 

25-33 

58-27 
78-54 

76-59* 
76-65* 
46-56* 



26-62* 



1-57 
45-64 
25-119* 
25-146 

25-1 IBK- 

30-110 

59-11 
45-97* 



35-32 



1-63 
49-1 

76-1 



83-9# 

74-97 
57-73* 



41-95* 41-113* 52-45 



7-29 
63-1 

76-60 



7-143 

U^u' J. 

85-1 



54-30* 



15-1 



57-19 



16-1 



57-20 



26-38 



78-36 



26-186 



79-30 



28-6 



78-56 
57-87* 



S4-8# 
62-18* 



62--65* 



73-41* 



73-55* 



74-59* 74-61* 74-73* 



45- 
41- 

34 



113 

36 



41-95 
34-23 



52-30 



67-52 



69-53 



73-74 



76-64* 
76-66* 



76-65 
76-87 



76-70 



76-75 
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RT40 2-17# 

RT50 2-lS# 3-24 

) • RT51 2-19# 

I RT51B 2-21# 3-25 

RT51C 2-22# 



t RT51X 2-20# 

RT52 2-23# 

RT53 2~24# 

C RT54 2-26# 3-26 25-231 

RT55 2-27# 

RTFTCH 30-20 31-24 32-78 42-63 43-37 S0-l7# 

♦ RTMNVC 1-190# 7-167 25-13^s^ 62-61 

RTNKM 45-69 45-1 55# 

RTTRP4 1-189# 7-166 25-12iJ 

C RTV*SZ 2-14# 25-195 25-207 

RTVDEF 2-25# 25-181 25-211 25-212 

RTVEND 1-210 2-2S# 25-196 25-203 25-207 



RTVER 2-16# 25-188 

RTVPTR 1-210# 25-181* 25-203 25-207* 25-218 25-220* 25-226 25-231 53-51 

SAVBLK 1-191# 

SB**SZ 1-132 37-50 

SCHED 1-88 

SCPFHD 1-86 37-129* 

SDANAM 1-120 32-30 

SDCB 1-128 32-23 

SDCBSZ 1-129 32-68 

SDCHAN 1-129 32-47 33-23* 33-30* 33-31* 

SDDVU 1-91 32-38* 

SDNAME 1-129 32-28* 32-57* 

SEGCHN 1-141 31-62 

SETCHN 30-80 31-64 32-109 40-58 40-66 42-52 42-90 7S-1S# 

SETJSZ 26-215 4S-16# 

SETLIN 16-49 16-64# 

SETMIO 26-143 65-18# 

SETMUX 16-48# 

SETSY 26-109 79-I4# 

SETUMP 7-109 12-14# 

SETVEC 13-36 13-50 14-21# 

SFCB 1-114 37-81* 

SFCBFH 1-114 

SFCBND 1-114 37-83* 

SFCBSZ 1-114 37-80 

SG*ELG 1-105 25-172 58-20 



I 



RMON 1-105 7-17* 7-167* 25-13 25-115 25-159 53-91 53-92* 53-95* 62-22* 62-61* ^ 

RPRVEC 1-103 13-48 53-93 60-58 

RSFBLK 1-141 31-23 31-30 31-43 31-47 31-63 31-68 

RSFERR 6-12# 31-78 31-85 f 

RSR 1-87 16-104 29-37 41-27 

RSZ 1-175# 76-35 

RT**SZ 1-123 26-180 

RT*BAS 1-122 74-48* 

RT«NAM 1-139 74-33* 74-34* 

RT*SKP 1-121 74-39 

RT*TOP 1-121 74-42* 

RT«UPD 2-12# 25-192 25-21? 

RTfVER 2-1 1# 25-189 25-211 
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Se$IOT 


1-105 


25-173 


58-17 












SG*MMU 


1-106 


25-173 


53-63 












Se*MTM 


1-106 


25-173 














SG*MTS 


1-106 


25-172 














Se*PAR 


1-106 


25-172 














SG*TSX 


1-142 


25-173 














SHRRCB 


1-121 


37-23* 














SHRRCN 


1-121 


37-30* 














SIZERR 


48-59 


80-69 


81-13 


81-20# 










SKPDEV 


l-234# 


52-35 














SLTSIZ 


1-117 


30-41* 














SMRSIZ 


1-150 


68-15* 


68-41 


68-43* 










SNMSHD 


1-132 


37-49* 














SP$*SZ 


1-86 


37-130 














SPLANM 


1-128 


32-25 














SPLBLK 


1-131 


32-77 


32-85 


32-90 


32-94 


32- 


-108 


32-110 


SPLCHN 


1-131 


32-107 














SPLCLD 


32-42 


33-i3# 














SPLDEV 


1-128 


32-24 


50-42 












SPLDVN 


1-129 


32-70 














SPLINI 


26-129 


32-7# 














SPLNB 


1-122 


70-78 














SPLND 


1-128 


32-7 


50-40 


70-76 


70-89 








SPNEED 


30-97 


30-108# 


31-79 


42-103 


43-78 








SROMMR 


1-98 
73-53* 


7-118* 
74-62* 


25-62 
74-72* 


45-71* 


45-119* 


57- 


-76* 


57-85* 


SR3FLG 


1-99 


7-119 


45-39* 


45-72 


45-116 








SR3MMR 


1-99 


7-123* 


7-126* 


12-37* 


45-37 


45- 


-74* 


45-118* 




62-55* 


73-47* 


73-52* 


74-65* 


74-71* 








SRTOVF 


6-40# 


74-105 














SRTSIZ 


1-150 


26-184* 














SS 


1-117 


25-44 














SSEND 


1-119 


25-41 














STA 


1-173# 


76-43 














STDVTB 


51-38 


54-2 1# 














STHNPV 


55-42 


57-102 


58-1 1# 












STK 


1-174# 
















STKLVL 


1-84 


7-25* 


7-157* 












SVERR 


6-37# 
















SWDBLK 


1-88 


30-19 


30-50 


30-58 


30-62 


30- 


-79 


30-84 


SWPCHN 


1-88 


30-78 














SWPJOB 


1-116 


37-127* 














SWPPOS 


1-116 


37-125* 














SYINDX 


1-120 


79-36* 














SYNAME 


1-141 


26-125 


42-21 


79-43* 










SYSDAT 


1-124 


26-222* 














SYSGEN 


1-107 


25-174* 














SYSMAP 


1-137 


76-117 














SYSUPD 


1-156 


25-212* 














SYSVER 


1-156 


25-179 


25-183* 


25-211* 










SYTIMH 


1-124 


25-19 


26-220 












SYTIML 


1-124 


26-219 


26-223 












SYUNIT 


1-119 


79-20* 


79-40 












TAKOVR 


7-9# 


26-250 














T I DBAS 


1-110 


9-32 


11-41* 












TIDVEC 


1-107 


9-34 















S-13 



61-24 61-47* 62-33* 62-56* 73-44* 



57-79* 57-84* 61-23 61-50* 62-36* 
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TKISEC 


1-94 


26-10* 


26-19* 












TKIVAL 


1-109 


26-13* 


26-22* 












TK3SVL 


1-134 


26-12* 


26-21* 












TK5VAL 


1-134 


26-11* 


26-20* 












TOOBIO 


6-32# 


25-32 


81-21 












TOP MEM 


l-200# 


25-68* 


80-47 












TRCSET 


45-34 


45-1 50# 


53-73 


53-74 










TRPIO 


1-lOS 


7-81 














TRP14 


1-124 


7-83 














TRP20 


1-108 


7-85 














TRP24 


1-108 


7-87 














TRP250 


1-124 


7-97 














TRP34 


1-lOS 


7-91 














TRP4 


1-107 


7-79 














TSEMT 


1-92 


76-116 














TSEXEC 


1-102 


76-115 














TSGEN 


1-102 


76-114 














TSINIT 


l-6# 


1-57 


25-77 


25-101 


30-70 


31- 


-55 


32 99 


TSR 


1-117 


16-99 














TSTWRD 


45-22# 


45-95* 


45-98* 


45-100 










TSXHD 


6-5# 


8-45 


25-31 


25-54 


26-225 


29- 


-84 


29-91 




32-131 


32-138 


40-75 


40-81 


42-101 


42- 


-108 


43-76 




69-52 


69-58 


72-34 


73-73 


74-93 


74- 


-104 


75-78 


TSX PRO 


1-33 


l-34# 


i-73 


:!.-74# 










TSXRUN 


6-23# 


25-55 














TSXSAV 


1-192# 
















TSXSIT 


1-112 
















TSXSIZ 


6-38# 


69-59 


72-35 












TTINCP 


1-154 


24-29 














UBUSMP 


1-138 


12-21 


45-136* 


51-50 










UC**SZ 


1-144 


43-25 














UCLBLK 


1-144 


43-28* 














UCLDAT 


1-144 


43-36 


43-43 


43-48 


43-52 


43- 


-64* 


43-66 


UCLINI 


26-121 


43-10# 














UCLNAM 


1-141 


26-125* 














UCLOPN 


6-43# 


43-77 


43-84 












UDDRO 


1-100 


45-46 














UEXINT 


1-131 


7-42 














UEXRTN 


1-130 


7-46 














UK**SZ 


1-144 


43-22 














UMODE 


1-118 


45-80 


45-97 


45-155 










UMRADR 


1-138 


12-27 














UMSYTP 


1-119 


26-153* 














UN I BUS 


1-138 


45-132 














UPARO 


1-101 


44-15 














UPAR6 


1-123 


74-57* 














UPAR7 


1-93 


45-79* 


45-96* 












UPDRO 


1-101 


44-17 














UPDR6 


1-123 


74-58* 














UPMODE 


1-122 


74-59 














US**SZ 


1-144 


43-23 














USRBAS 


1-104 


11-29* 














VBUSTP 


1-120 


25-167 


45-126 


45-132 










VCSHNB 


1-127 


75-17* 














VDBFLG 


1-92 


70-162 














VDFMEM 


1-134 


48-47 


48-49 













30-102 


31-77 


45-160 


47-76 


76-138 


78-53 



f 

76-112 

c 

30-95 30-102 31-77 31-84 32-60 

43-83 45-160 47-76 59-8 67-51 * 

81-20 
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VF*LIN 1-154 18-13 

VF*MR 1-153 22-21 22-22 

VFfRE 1-154 IS- 15 

VF$RIE 1-153 

VF*SC 1-154 

VF*TIE 1-153 

VH$CSR 1-153 18-13* 18-14-fi' 22-12 22-21* 22-22 

VH*LCR 1-154 18-15* 

VH*LPR 1-153 

VHIMEM 1-87 30-38 48-35 48-37 

VHINIT 16-54 22-8# 

VHLPRM 16-87 18-8# 

VHOINT 1-154 20-39 

VINABT 1-123 29-67 32-50 59-6 74-31 

VLDSYS 1-145 26-57 52-32 

VMAXMC 1-145 70-104 

VMIOBF 1-147 65-55 65-66 

VMIOSZ 1-146 39-83 

VMLBLK 1-116 39-59 

VMSCHR 1-91 70-111 

VMXCSH 1-86 37-65 

VMXMON 1-112 37-41 

VMXMRB 1-148 70-108 

VMXMSG 1-145 70-115 

VMXSF 1-116 39-51 39-57 70-95 

VMXSFC 1-116 39-54 39 62 

VMXWIN 1-115 37-25 37-27 70-142 

VNCSLO 1-91 38-32 

VNCXOF 1-91 38-56 

VNCXON 1-91 38-63 

VNFCSH 1-135 70-69 

VNGR 1-122 37-24 

VNUIP 1-85 37-55 

VNUMDC 1-85 39-53 39-65 39-72 70-97 

VPAR5 1-136 25-69 25-71 47-49 47-53 57-35 57-72 57-99 73-35 

VPAR6 1-135 39-27 74-56 

VPLAS 1-141 31-18 31-26 31-36 31-47 70-121 

VPMSIZ 1-132 39-91 

VSLEDT 1-137 70-136 

VSWPFL 1-102 26-133 31-16 37-121 70-130 

VSWPSL 1-95 30-32 30-34* 30-45 37-123 

VSYDMP 1-84 70-174 

VU«CL 1-144 43-15 

VUCLMC 1-144 43-17 

VUXIFL 1-130 7-44 7-51 

WINBAS 1-104 11-25* 

WRKBUF l-208# 26-238 26-242 27-20* 40-26 42-28 42-02 43-55 53-38 53-47 53-62 53-75 

54-48 57-29 57-63 60-35 60-50 60-57 67-16 69-23 73-29 74-53 76-64 80-38 

WRKSIZ l-209# 26-236 27-21* 80-40 

XMVBAS 1-196# 14-47 14-72* 26--100* 

ZCLR 1-110 19-21 19-22 
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ciio 
Chi 



CMS 



CM3 

CM5 



. . . CM6 

. . . CM7 

. CLOSE 

. CSTAT 
. DATE 
. DELET 
. DSTAT 
. ENTER 
. EXIT 
. FETCH 
. GTIM 
. OVAL 
. HERR 
. LOCK 
. LOOKU 

. PRINT 



30-84 
S-29 
40-27 
43-60 
73-30 
8-29 
26-242 
30-70 
31-55 
40-21 
42-29 
42-78 
43-52 
53-38 
57-64 
61-35 
73-30 
76-32 
78-32 
30-57 
74-81 
8-29 
25-63 
29-96 
30-108 
31-85 
40-21 
42-78 
43-60 
55-25 
67-52 
74-54 
76-51 
79-26 
25-19 
79-28 
8-29 
57-30 

l-50# 
76-95 
l-53# 
l-52# 
1-51# 
l-52# 
l-49# 
1-51# 
l-52# 
l-52# 
l-49# 
1-51# 
l-52# 
l-49# 
74-25 

l-50# 
29-85 
30-116 



31-68 

26-242 

40-62 

53-26 

74-25 

8-29 
26-242 
30-70 
32-85 
40-21 
42-29 
42-82 
43-52 
55-25 
57-64 
61-35 
73-30 
76-32 
78-34 
30-72 
76-95 

S-45 
25-67 
29-97 
30-1 il 
32-60 
40-27 
42-82 
43-66 
57-21 
69-24 
74-93 
76-70 
79-28 
25-23 

26-242 

57-64 

30-57 

43-60 

26-221 

30-58 

80-27 

30-62 

7-168 
80-53 
25-19 
25-78 
25-57 
25-81 
30-50 
76-20 

8-45 
29-91 
30-119 



32 
30- 
42- 
53- 
74- 
8- 
26- 
31- 
32- 
40- 
42- 
42- 
43- 
55- 
57- 
61-- 
73- 
76- 
79- 
31- 



~X XKJ 

-50 
-22 

-54 

-29 

-242 

-30 

-85 

■27 

•31 

■82 

55 

25 

64 

35 

30 

32 

19 

42 



8-46 
25-78 
29-101 
30-116 
32-61 
40-62 
42-84 
43-76 
57-30 
69-52 
74-94 
76-138 
80-27 
25-61 

30-70 
60-36 
30-72 



31-43 

31-47 

8-47 

26-220 
25-182 



31-30 

8-46 
29-92 
31-77 



42-91 
30-62 
42-29 

tr IS *->!=■ 

76-20 
8-29 
30-50 
31-30 
32-90 
40-27 
42-31 
42-82 
43-55 
55-25 
60-36 
67-17 
74-25 
76-51 
79-24 
31-56 

25-19 

25-182 

30-50 

30-119 

32-85 

40-75 

42-91 

43-77 

57-64 

69-53 

74-99 

76-139 

80-53 

25-63 

31-55 
60-50 
31-42 



32-90 
32-94 

78-32 

32-85 

25-31 
29-96 
31-78 



43-66 
30-70 
42-31 

57-21 

"f I '->'-* 

f a — Jd 

25-19 

30-50 

31-43 

32-90 

40-27 

42-31 

42-82 

43-55 

55-25 

60-36 

67-17 

74-25 

76-51 

79-26 

32-89 

25-23 

26-220 

30-58 

31-30 

32-90 

40-76 

42-101 

43-83 

59-8 

69-58 

74-104 

78-25 

81-20 

25-78 

32-99 
61-35 
31-56 



42-73 
42-78 

7S~34 

40-21 

25-32 
29-97 
31-84 



80-27 

31-30 

42-68 

57-30 

76-51 

25-23 

30-58 

31-43 

32-94 

40-27 

42-31 

42-84 

43-55 

57-21 

60-36 

67-17 

74-54 

76-51 

79-28 

32-101 

25-31 

26-225 

30-62 

31-43 

32-94 

40-81 

42-102 

43-84 

59-9 

69-59 

74-105 

78-32 

81-21 

25-182 

40-27 
67-17 
32-89 



43-48 
43-52 

79-19 
40-62 



80-53 

31-47 

42-78 

57-64 

76-70 

25-61 

30-58 

31-47 

32-94 

40-62 

42-68 

42-84 

43-60 

57-21 

60-36 

67-17 

74-54 

76-51 

42-72 

25-32 

26-226 

30-70 

31-47 

32-99 

40-82 

42-108 

45-160 

59-12 

72-34 

75-78 

78-34 

82-18 

26-220 

42-29 
69-24 
32-101 



79- 



42-22 



31-55 

42-82 

60-36 

78-25 

25-63 

30-62 

31-47 

32-94 

40-62 

42-68 

43-43 

53-26 

57-30 

60-50 

69-24 

74-54 

76-70 

42-83 

25-33 

26-242 

30-84 

31-55 

32-110 

42-22 

42-109 

45-161 

60-36 

72-35 

75-79 

78-53 

83-26 

78-32 

42-31 
73-30 
42-83 



25- 


-33 


25-36 


29- 


-101 


30-95 


31- 


-85 


32-60 



79-26 



42-68 

25-54 
30-96 
32-61 



32-85 
42-84 
60-50 

25-78 
30-62 
31-47 
32-99 
42-22 
42-73 
43-43 
53-26 
57-30 
60-50 
69-24 
74-54 
76-70 

43-47 

25-36 

29-84 

30-95 

31-68 

32-131 

42-29 

43-43 

47-76 

60-50 

73-30 

76-20 

78-54 

84-26 

78-34 

42-82 
74-54 
43-65 



79-28 



42-84 



25-55 

30-102 

32-131 



32-94 
43-43 
61-35 

25-182 

30-62 

31-55 

32-99 

42-22 

42-73 

43-48 

53-38 

57-30 

60-50 

69-24 

76-20 

76-70 

43-65 

25-54 

29-85 

30-96 

31-77 

32-132 

42-31 

43-48 

47-77 

61-35 

73-73 

76-22 

78-57 

79-19 

43-55 
76-32 
51-77 



32-99 
43-52 
67-17 

26-220 

30-70 

31-55 

32-99 

42-29 

42-78 

43-48 

53-38 

57-30 

60-50 

69-24 

76-20 

76-70 

51-77 

25-55 

29-91 

30-102 

31-78 

32-138 

42-68 

43-52 

53-26 

67-17 

73-74 

76-23 

79-19 

79-24 



40-21 
43-55 
69-24 

26-242 

30-70 

31-55 

32-99 

42-29 

42-78 

43-52 

53-38 

57-64 

61-35 

73-30 

76-32 

78-25 

57-113 

25-61 

29-92 

30-103 

31-84 

32-139 

42-73 

43-55 

53-38 

67-51 

74-25 

76-32 

79-24 

79-26 



53-38 


55-25 


76-51 


76-70 


57-113 


74-81 



43-43 

26-225 
30-103 
32-132 



53-26 

26-226 
30-108 
32-138 



57-21 

29-84 

30-111 

32-139 
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40-75 40-76 40-81 40-82 42-101 42-102 42-108 42-109 43-76 43-77 43-83 43-84 

45-160 45-161 47-76 47-77 59-8 59-9 59-12 67-51 67-52 69-52 69-53 69-58 

69-59 72-34 72-35 73-73 73-74 74-93 74-94 74-99 74-104 74-105 75-78 75-79 

76-22 76-23 76-138 76-139 78-53 78-54 78-57 81-20 81-21 

. PURGE l-50# 42-72 43-47 

. READW l-49# 8-29 26-242 40-27 42-29 42-31 53-38 55-25 57-30 57-64 60-36 60-50 

61-35 67-17 69-24 73-30 74-54 76-32 76-51 76-70 

. RELEA l-52# 30-84 31-68 32-110 42-91 43-66 

. SAVES l-49# 78-25 

. sec A l-53# 25-23 

. SERR 1-51# 25-50 

. SETTO l-50# 25-67 

. TRPSE l-50# 25-61 25-63 

. TTYOU l-50# 82-18 83-26 84-26 

. UNLOC 1-51# 26-231 

.WRITW 1-51# 30-70 31-55 32-99 42-82 43-55 

DEFFLG 4-S# 4-14 4-15 4-16 4-17 4-18 4-19 4-20 4-21 4-22 4-23 4-24 

4-25 4-26 4-27 4-28 4-29 4-30 4-31 4-32 4-33 4-34 4-35 4-36 

4-37 4-38 4-39 4-40 4-41 

DISABL 1-162# 57-73 62-18 73-41 74-61 

ENABL 1-1 66# 57-87 62-65 73-55 74-73 

HANVER 3-8# 3-24 3-25 3-26 

OVLTBL 70-45# 70-51 70-52 70-53 70-54 70-55 70-56 70-57 70-58 70-59 70-60 70-61 

70-62 70-63 70--64 
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